[VB_2010-2012] Aggiungere righe a una tabella di un database accdb

[mvent]

Ho risolto così, spero sia la soluzione ottimale:

Variabili:

    Public AccessConn As System.Data.OleDb.OleDbConnection
    Public AccessCommand As System.Data.OleDb.OleDbCommand
    Public Parametro_DB As System.Data.OleDb.OleDbParameter

Codice per l'aggiunta di una riga nel database accdb:

   QueryCMD = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\pico\gestv.accdb;Persist Security Info=False;"
            AccessConn = New System.Data.OleDb.OleDbConnection(QueryCMD)
            AccessConn.Open()

   QueryCMD = "INSERT INTO tblNominativi ([IDNomin], [Nominativo], [Tel1], [Desc1]) VALUES (?, ?, ?, ?)"
                AccessCommand = New System.Data.OleDb.OleDbCommand(QueryCMD, AccessConn)
                Parametro_DB = New System.Data.OleDb.OleDbParameter
                Parametro_DB.Direction = ParameterDirection.Input
                Parametro_DB.DbType = DbType.Int32    'idnomin
                Parametro_DB.Value = intID  'mia variabile di tipo Long
                AccessCommand.Parameters.Add(Parametro_DB)
                Parametro_DB = New System.Data.OleDb.OleDbParameter
                Parametro_DB.DbType = DbType.String   'nominativo
                Parametro_DB.Value = txtNom.Text
                AccessCommand.Parameters.Add(Parametro_DB)
                Parametro_DB = New System.Data.OleDb.OleDbParameter
                Parametro_DB.DbType = DbType.String   'tel1
                Parametro_DB.Value = txtTel1.Text
                AccessCommand.Parameters.Add(Parametro_DB)
                Parametro_DB = New System.Data.OleDb.OleDbParameter
                Parametro_DB.DbType = DbType.String   'desc1
                Parametro_DB.Value = txtDesc1.Text
                AccessCommand.Parameters.Add(Parametro_DB)
               
                Try
                    AccessCommand.ExecuteNonQuery()
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Finally
                    AccessConn.Close()
                End Try
                StrMSG = MsgBox("Il nominativo è stato immesso.", vbInformation, "Immissione di un nominativo")