Senhores
Estou aprendendo a usar o ADO como minha conexão, para isto utilizo os procedimentos abaixo, tudo funciona bem, quando movimento para o próximo ou para o primeiro registro, tudo bem, porém quando tendo movimentar para o registro anterior ou para o último registro aparece a mensagem:
- "O conjunto de linhas não oferece suporte para busca regressiva."
Eu sei que tenho que dedinir a propriedade rs.CursorLocation = adUseClient
mas quando tento isto aparece um erro que não posso definir esta propriedade quando o objeto estiver aberto, ou o rs não está setado.
Como proceder?
Sub Conectar()
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= C:ValadaresConManConMan_be.mdb;Jet " & _
"OLEDB:Database Password=25041957;"
End Sub
Private Sub Form_Load()
Conectar
Set Com = New ADODB.Command 'cria comando
Set Com.ActiveConnection = CNN 'linka comando com conexão
Com.CommandText = "T_NS" 'carregar propriedades
Com.CommandType = adCmdTable
Com.CommandTimeout = 15
Set rs = Com.Execute ' carrega rs com propriedade
rs.MoveMin
LerCampos
End Sub
