Visual Basic - Consulta Tabla Access

Hola a todos,
Tengo una base de datos Access de gran tamaño, más de 1giga. En esta bd tengo un única tabla con 2 campos. El número total de registros de la tabla es de 30000000.
Desde Visual Basic tengo q. conectarme a esta Bd access y recuperar un valor de uno de los campos pasándole otro valor. La forma en q. lo he hecho es:
-------------------------------------------------------------------------------------------------------------------
Dim cnn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim sqlstring As String

With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Codigos.mdb"
.CursorLocation = adUseClient
.Open
End With
'Creo Sql de consulta contra la BD
sqlstring = "SELECT campo1 FROM Tabla1 "
sqlstring = sqlstring & " WHERE campo2 = ' " & codigo & "'"

RS.Open sqlstring, cnn, adOpenDynamic, adLockBatchOptimistic, adCmdText
msgbox rs.fields(0)
-------------------------------------------------------------------------------------------------------------------

¿Es correcta la forma? ¿Existe alguna forma más optima? Es q. me tarda bastante en consultar la tabla.
Cualquier sugerencia es de ayuda.

Yo utilizo RecordSource="Select ...." prueba si te va mejor

¿Has probado implementar alguna tabla hash para búsquedas? Es que con tantos registros es normal que se demore un huevo.

todo esta correcto, y pues por la cantidad de datos si es logico que se tarde.

una sugerencia si es que no la tenes ya, estos 2 campos en tu base de datos los tenes indexados, aunque se repitan hay una opcion que dice indexar y permiter repetidos

yo trabajo con access y en oracle y pues en oracle si afecta el no tener un indice, podrias probar en access

saludos

Muchas gracias, ya lo tengo conseguido. Me faltaban crear indices. Con los indices ya me va bien.