Dim oConn As System.Data.OleDb.OleDbConnection = Nothing
        Dim command As New OleDbCommand("INSERT into tblKopie (spalte1," & _
          "spalte2) values ('test 1', 'wert 1'),('test 2', 'wert 2');")
        Try
            'Connection-String zusammenstellen
            Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=C:\leer.mdb;"
 
            'Connection zur Access-DB herstellen
            oConn = New System.Data.OleDb.OleDbConnection(sConn)
            oConn.Open()
            command.Connection = oConn
            command.ExecuteNonQuery()
 
        Catch ex As Exception
            'Bei Fehler, Hinweis anzeigen
            MsgBox("Fehler " & vbCrLf & _
              ex.Message, MsgBoxStyle.Exclamation)
 
        Finally
            'Connection schließen
            If oConn IsNot Nothing Then oConn.Close()
        End Try