Hi!

I am using the following code to query access table. the code works fine. My
problem is how to name the field name ([Cell]) as a string, in order to use
this query as a dynamic query. I tried many things but nothing succeeded.

Thanks for your help!

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and
Settings\Eli\My Documents\ETV_Cells.mdb"
rst.Open "SELECT * FROM CellTable ;", cnn, adOpenStatic
rst.MoveFirst
strCellCode = rst![Cell]

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing


Eli

Eli,

Declare a variable varCellCode as variant & varCellCode = rst.

Wkr,

JP


"???" <@discussions.microsoft.com> wrote in message
news:A5685E63-43E1-4081-AEF4-(E-Mail Removed)...
> Hi!
>
> I am using the following code to query access table. the code works fine.
> My
> problem is how to name the field name ([Cell]) as a string, in order to
> use
> this query as a dynamic query. I tried many things but nothing succeeded.
>
> Thanks for your help!
>
> Dim cnn As New ADODB.Connection
> Dim rst As New ADODB.Recordset
> cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents
> and
> Settings\Eli\My Documents\ETV_Cells.mdb"
> rst.Open "SELECT * FROM CellTable ;", cnn, adOpenStatic
> rst.MoveFirst
> strCellCode = rst![Cell]
>
> rst.Close
> cnn.Close
> Set rst = Nothing
> Set cnn = Nothing
>
>
> Eli

strCellCode = rst.Fields("Cell").Value

Tim



"???" <@discussions.microsoft.com> wrote in message
news:A5685E63-43E1-4081-AEF4-(E-Mail Removed)...
> Hi!
>
> I am using the following code to query access table. the code works fine.
> My
> problem is how to name the field name ([Cell]) as a string, in order to
> use
> this query as a dynamic query. I tried many things but nothing succeeded.
>
> Thanks for your help!
>
> Dim cnn As New ADODB.Connection
> Dim rst As New ADODB.Recordset
> cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents
> and
> Settings\Eli\My Documents\ETV_Cells.mdb"
> rst.Open "SELECT * FROM CellTable ;", cnn, adOpenStatic
> rst.MoveFirst
> strCellCode = rst![Cell]
>
> rst.Close
> cnn.Close
> Set rst = Nothing
> Set cnn = Nothing
>
>
> Eli