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.