Dim conn as new OleDbConnection(MiaStringaConnessione);
conn.Open()
Dim transa=conn.BeginTransaction()

Try
Dim com as new SqlCommand("INSERT INTO MiaTabella1(camp1,campo2) VALUES (valore1,valore2)",conn);
com.ExecuteNonQuery()
com.CommandText="INSERT INTO MiaTabell2(camp1,campo2) VALUES (valore1,valore2)"
com.ExecuteNonQuery()
com.CommandText="INSERT INTO MiaTabell3(camp1,campo2) VALUES (valore1,valore2)
com.ExecuteNonQuery()
'Se tutto è andato a buon fine applica le modifiche effettuando il Commit della transazione
transa.Commit()
Catch ex as Exception
'Se si è verificata un eccezione per esempio alla terza query, annulla le modifiche apportate con un rollback 
transa.Rollback()
End Try
conn.Close()