Boa noite

 

Eu consegui efetuar a conexão com o meu Banco de dados no Access;

Minhas Strings de conexão

Public CNN  As ADODB.Connection
Public RST  As ADODB.Recordset
Public Expr As String
Public SQL  As String
Public MSG  As String
 

    Minha conexão
    Set CNN = New ADODB.Connection
    Set RST = New ADODB.Recordset

    Expr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source= " & App.Path & "db_pererinha.mdb;" & _
           "Persist Security Info=False"
          
    CNN.CursorLocation = adUseServer
    CNN.Open Expr

 

não esta inserindo os dados por que?

Dim Nome as String

Nome = txtNome.text

sql = "insert into Funcionario ( Nome_fun) values ('"& Nome &"')"

 

Valeu pela ajuda

Option Explicit

Public cnn  As ADODB.Connection
Public rst  As ADODB.Recordset
Public Expr As String
Public Sql  As String
Public msg  As String

 
Private Sub Command1_Click()
   Set cnn = New ADODB.Connection
   Set rst = New ADODB.Recordset
  
   Expr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source= C:     empdb_pererinha.mdb;" & _
          "Persist Security Info=False"
        
   cnn.CursorLocation = adUseServer
   cnn.Open Expr
 

   Dim Nome As String
   Nome = "Maria da Silva" 'txtNome.Text
   Sql = "Insert into Funcionario ( Nome_fun) values ('" & Nome & "')"
  
   cnn.BeginTrans
   cnn.Execute Sql
   cnn.CommitTrans
     
End Sub

Qual a mensagem de erro ? tente assim:

Declare o objeto comando, que não vi em seu código, e no objeto comando use o INSERT INTO

 

dim cmd as new adodb.command

 

With cmd
    .ActiveConnection = CNN
    .CommandType = adCmdText
    .CommandText = " insert into funcionario " & _
    "(nome_fun)values ('" & Txt_nome.Text & "');"
     .Execute

end with

 

Beleza ?