Imports System.Data.OleDb
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim conn As New OleDbConnection("Provider =" & _
          "microsoft.jet.oledb.4.0;Data Source = C:\Test.mdb")
        Dim sqlString As String = "INSERT INTO Test2 (Feld1, Feld2, Feld3)" & _
        "VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & _
        TextBox3.Text & "')"
        Dim cmd As New OleDbCommand(sqlString, conn)
 
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        If conn.State = ConnectionState.Open Then conn.Close()
        End Try
        If conn.State = ConnectionState.Open Then conn.Close()
        MessageBox.Show("Neuer Datensatz eingetragen")
 
    End Sub
End Class