o que está errado neste código?

 

Dim strresp As String
strresp = MsgBox("Deseja desativar a solicitação impressa?", vbYesNo)
If strresp = 6 Then
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\servidorproh     este.mdb;Jet OLEDB:Database ;"
rs.Open "select disponivel from tabela where tabela.nome = '" & List1.Text & "'", cnn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then 
rs!disponivel = "0"
rs.Update
rs.Close

 

Na verdade, eu quero q ele altere o "disponível" só do registro selecionado, mas ele está alterando todos os registros e mostra um erro falando justamente issu...

Desde ja, agradecimentos....

(Eu sei que estou postando muito, mas é que estou começando a programar com ado)

 

Esse seu select tá estranho!!!! a sintaxe é a seguinte

 

"select disponivel from tabela where nome = '" & list1.text & "'"

 

Naum tem o porque usar aquele "tabela.nome"

Verifique se existe diversos campos NOME com o conteudo que voce esta digitando.

Voce pode fazer assim tambem

 

    cnn.Execute "update tabela Set disponivel = 0 where nome = '" & list1.text & "'"

 

Assim ele executa a gravacao direta sem precisar ler.