Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

''salva conta
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From cliente where Nome= '" & Nome & "'"
Set dyn = xxbco.CreateDynaset(query)

If dyn.EOF Then
dyn.AddNew

dyn("nome") = Nome

dyn.Update
xxbco.Close
MsgBox "Inclusão Realizada com (SUCESSO).!"
Else
MsgBox "Está inclusão já foi registrada [Verifique]."
Exit Sub
End If

 

mas ai e q vem o problema estou usando agora o access 2003 e o programa fala q e inreconhcivel o banco de dados ? o q eu usava era feito em access 97 !