Mover recordset, cómo lo abro?

[rsiles]

Public Function Buscar() As Boolean
Set rstconfig = Nothing
Set rstconfig = New ADODB.Recordset
With rstconfig
.ActiveConnection = MICONECCION
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "select * from CONFIGURACION ;"
.Open
If .RecordCount <> 0 Then
Buscar = True
Else
MsgBox "No existe configuración actual", vbInformation, "CLSCONFIGURACION"
.Close
Set rstconfig = Nothing
Buscar = False
End If
End With
End Function



Public Sub ANTERIOR()
On Error GoTo salir
If rstarqueo.EOF = False Then
rstarqueo.MovePrevious
End If
salir:
End Sub
Public Sub Siguiente()
On Error GoTo salir
If rstarqueo.EOF = False Then
rstarqueo.MoveNext
End If
salir:
End Sub