Private DBConnection As OleDB.OleDBConnection = New OleDB.OleDBConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\pfad\zu\deiner\db.mdb;User" & _
  "Id=admin;Password=;"
Private InsertCommand As OleDB.OleDBCommand = New OleDB.OleDBCommand("INSERT" & _
"INTO tabelle (feld1, feld2) VALUES (@feld1, @feld2)", DBConnection)

Private Sub SaveData() Handles cmdSave.Click
' Zuerst die Felder überprüfen
    If Trim(Me.txtFeld1.Text) <> String.Empty AndAlso Trim(Me.txtFeld2.Text) _
      <> String.Empty Then
        InsertCommand.Parameters.AddWithValue("@feld1", Me.txtFeld1.Text)
        InsertCommand.Parameters.AddWithValue("@feld2", Me.txtFeld2.Text)
        If InsertCommand.ExecuteNonQuery() > 0 Then
            MessageBox.Show("Die Daten wurden erfolgreich gespeichert", _
                "Speichern erfolgreich", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
        Else
            MessageBox.Show("Beim Speichern der Daten ist ein Fehler" & _
              "aufgetreten", _
                "Speichern fehlgeschlagen", MessageBoxButtons.OK, _
                MessageBoxIcon.Error)
        End If
    End If
End Sub