Imports System.Data.oledb 
 
Public Class Form1
    Inherits system.windows.forms
 
    Dim m_ConString as string = _
        "Data Source=""C:\Datenbank\Verwaltung.mdb"";" & _
        "Password=""sorry"";" & _
        "Provider=""Microsoft.Jet.OLEDB.4.0"";" & _
        "Jet OLEDB:System database=""C:\Datenbank\sicherheit.mdw "";" & _
        "User ID=""MSchade"";" & _
        "Mode=Share Deny None;"
    Private con as oleDBConnenction 
 
    Private Sub Form_Load(Sender as object, e as eventargs) Handles MyBase.Load
        con = new oleDBConnenction 
        con.ConnectionSTring = m_ConString
        con.open() 
    end sub