VBA ADO per Access

[Dany73]

Qualcuno sa dove posso trovare info sul web su ADO per Access ?

Quello che mi serve in particolare è un'istruzione da codice VBA che inserisca un nuovo record in una tabella esistente e i relativi dati nei campi da cui e costituita. Ad esempio Tabella 1 ha due campi: NOME e CITTA'. Come faccio in ADO a dirgli: "inserisci un nuovo record e i dati "Pippo" e "Parigi" nei rispettivi suoi campi"?


Grazie

[LMondi]

Questo esempio inserisce nuovi dati in una Tbl Access chiamata Tblclienti2.

Private Sub InserisciDati()
    Dim Ogg As New ADODB.Command
    Dim ConnesInserimento As New ADODB.Connection

 'Esegue la connessione con il DataBase Tblclienti2:
        With ConnesInserimento
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
        End With
        
        Ogg.ActiveConnection = ConnesInserimento
        Ogg.CommandType = adCmdText

        Ogg.CommandText = "insert into Tblclienti2(Nome, Cognome, Indirizzo)" _
        & "values ('" & "Mario" & "', '" & "Rossi" & "', '" & "Via della piasa 20" & "');"
        Ogg.Execute

'Chiude la connessione:
        ConnesInserimento.Close
        Set ConnesInserimento = Nothing

Considera che al posto del nome Mario, ad esempio, puoi inserire una Lbl nella quale viene digitato il nome Mario, Tipo FrmPippo.lblNome.Caption e così via.
La stringa di connessione (DataConnessione) è la seguente (da scrivere in un modulo bas):

Public DataConnessione As String
Public Sub DataConnessione2()
    DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Prova.mdb;Persist Security Info=False;"
End Sub

[meronet]

Questa stringa

code
----------------------
Public DataConnessione As String
Public Sub DataConnessione2()
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Prova.mdb;Persist Security Info=False;"
End Sub

-----------

va scritta obbligatoriamente nel modulo.bas

[meronet]

Questa stringa

code
----------------------
Public DataConnessione As String
Public Sub DataConnessione2()
DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Prova.mdb;Persist Security Info=False;"
End Sub

-----------

va scritta obbligatoriamente nel modulo.bas

[Dany73]

non sono molto esperto in questi linguaggi, comunque proverò...grazie