Public VConn As adodb.Connection
Public rsHerst As adodb.Recordset
 
Private Sub Class_Initialize()
    'hier wird nur die Connection (VConn) und das Recordset (rsHerst) geladen:
    db_name = "laden"
    db_server = "localhost"
    db_port = ""    'default port is 3306
    db_user = "test"
    db_pass = ""
    Set VConn = New adodb.Connection
    VConn.ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security" & _
      "Info=True;User ID=;Extended Properties=" & _
    Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & _
    ";SERVER=" & db_server & ";UID=" & db_user & _
    ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$( _
    34)
    VConn.Open
    Set rsHerst = New adodb.Recordset
    Set rsHerst.ActiveConnection = VConn
    rsHerst.CursorLocation = adUseClient
    rsHerst.CursorType = adOpenDynamic
    rsHerst.LockType = adLockPessimistic
    rsHerst.Open "SELECT * FROM tblhersteller"
 
End Sub
 
Private Sub Class_Terminate()
    Set rsHerst = Nothing
    VConn.Close
End Sub

Private Sub Form_Load()
Set datClass = New datKlasse
Set Adodc1.Recordset = datClass.rsHerst
End Sub
 
Private Sub Command1_Click()
'Zeigt die Namen der Hersteller in der Liste an
DataList1.ListField = "HerstName"
End Sub
 
Private Sub Command2_Click()
'Zeigt die Telefonnummern der Hersteller in der Liste an
DataList1.ListField = "HerstTel"
End Sub