Olá!

Porque não tenta fazer algo parecido com:

        

Private Sub Incluir,

Public cnnBanco As New ADODB.Connection

Public tabela As New ADODB.Recordset

 

cnnBanco.ConnectionString = "driver={SQL Server};Server=" & nomeservidor & ";database=" & nomeBanco & "
  cnnBanco.Open

 

tabela.CursorType = adOpenKeyset
tabela.LockType = adLockOptimistic
tabela.Open "select nomecampo2 from nometabela where nomecampo1 = ' " & parametro " ' ", cnnBanco, , , adCmdText  

  

tabela.AddNew                                                                                                  'Se for fazer apenas um alteração, então basta reitar a linha de código a cima '

  tabela!nomcampo2 = parametro2        

  tabela.Update
  tabela.Close
 End Sub