codice:
Dim StrConnection as String = "Provider=Microsoft.Jet.OleDb.4.0;" & _
					"Data Source=Percorso"

Dim MyConn as New OleDbConnection(StrConnection)
Dim StrSql as String

StrSql = "Query sql"

Dim MyCommand as New OleDbCommand(StrSql, MyConn)

MyConnection.Open()

MyCommand.ExecuteNonQuery()

MyConnection.Close()