Imports System.Data.OleDb
 
Public Class TestForm
 
    Dim DBConnection As OleDbConnection = Nothing
    Dim DBQuery As OleDbCommand
    Dim DBQueryString As String
 
    Private Sub Connect_DB()
 
        Dim DBConnectionString As New OleDbConnectionStringBuilder
 
        With DBConnectionString
            .DataSource = "D:\Data\Statistik.mdb"
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .OleDbServices = -4
            .Add("Mode", "Share Deny None")
            .Add("Jet OLEDB:Database Password", "mypassword")
            .Add("Jet OLEDB:Database Locking Mode", 1)
        End With
 
        DBConnection = New OleDbConnection(DBConnectionString.ConnectionString)
 
        Try
            'Datenbankverbindung öffnen
            DBConnection.Open()
            MsgBox ("Datenbankverbindung steht")
        Catch ex As Exception
            Throw ex
            MsgBox("Datenbank konnte nicht göffnet werden")
        End Try
 
        'SQL-Abfrage zusammenstellen
        DBQueryString = "INSERT INTO Spiele ( MatchID, Status ) SELECT 12345, " _
          & "Test" & ";"
 
        'SQL-Abfrage auf Datenbankverbindung setzen
        DBQuery = New OleDbCommand(DBQueryString, DBConnection)
 
        'SQL-Abfrage ausführen
        DBQuery.ExecuteNonQuery()
 
    End Sub
 
End Class