Abra o DBF listando os Campos em TextBox.
Private Sub cmdBusca_Click()
Dim AreaTrabalho As Workspace
Dim BD As Database
Dim RS As Recordset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set BD = AreaTrabalho.OpenDatabase("C:Teste", False, False, "Dbase III")
Set RS = BD.OpenRecordset("Select * From SOCIO.DBF Where CODIGO = '" & TxtBusca & "'", dbOpenDynaset)
If Not RS.EOF Then
TxtCodigo = RS.CODIGO
TxtNome = RS.SOCIO
TxtEndereço = RS.ENDEREÇO
End If
RS.Close
BD.Close
End Sub
Com os dados listados nas TextBox, faça as alterações e clique em Salvar!
Private Sub cmdSalvar_Click()
Dim AreaTrabalho As Workspace
Dim BD As Database
Dim RS As Recordset
Set AreaTrabalho = DBEngine.Workspaces(0)
Set BD = AreaTrabalho.OpenDatabase("C:Teste", False, False, "Dbase III")
Set RS = BD.OpenRecordset("Select * From SOCIO.DBF Where CODIGO = '" & TxtBusca & "'", dbOpenDynaset)
If Not RS.EOF Then
RS.Edit
RS.SOCIO = TxtNome
RS.ENDEREÇO = TxtEndereço
RS.Update
End If
RS.Close
BD.Close
End Sub