Imports System.Data.OleDb
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    '-------    Zugriff auf Access-DB UserDB.mdb, Tabelle Users    -------
 
    Private dbpath As String = System.IO.Path.Combine(Application.StartupPath, _
      "UserDB.mdb")
    Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
    "Source=" & dbpath & ";")
    Private sql As String = "SELECT * FROM Users;"
    Private cmd As New OleDbCommand(sql, conn)
    Private da As New OleDbDataAdapter(cmd)
    Private ds As New DataSet
 
 
    '-------    Verbindung herstellen, DataSet füllen und in Datagrid anzeigen  
    '  -------
 
    Private Sub LOAD_Table()
        Dim iCount As Integer
 
        Try
            'Verbindung zur Datenbank öffnen
            conn.Open()
            'Inhalte des Dataset zunächst löschen
            ds.Clear()
            'Dataset mit der Tabelle Users füllen
            da.Fill(ds, "Users")
            'Datagrid anbinden
            DataGrid1.SetDataBinding(ds, "Users")
            'Combobox anbinden
            cboUsername.DataSource = ds
            cboUsername.DisplayMember = "Users.Username"
 
 
            'Wieviele Datensätze
            Dim sql As String = "SELECT COUNT (*) FROM Users;"
            Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)
            iCount = cmd.ExecuteScalar()
            Me.Text = "  " & iCount.ToString & " Datensätze in der Tabelle" & _
              "Users der Datenbank UserDB.mdb"
 
            txtPasswort.Text = ""
            txtEmail.Text = ""
 
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
        Finally
            'Verbindung zur Datenbank auf jeden Fall wieder schließen
            conn.Close()
        End Try
 
 
    End Sub