Option Explicit
Dim sSql As String
Private Sub Combo1_click()
Dim sSql As String
sSql = "select * from starter where disziplin = '" & CStr(Combo1.ListIndex + 1) _
  & "'"
Call ladedaten(sSql)
End Sub
 
 
 
Private Sub Command2_Click()
 
'und von hier aus kann ich auf rec2 nicht zugreifen was muss anders sein?
 
 
End Sub
 
Public Sub Form_Load()
 
 
pub_con.Provider = "Microsoft.jet.OLEDB.4.0"
pub_con.Open App.Path & "\mydb.mdb"
 
Dim rec1 As New ADODB.Recordset
 
With rec1
    .ActiveConnection = pub_con
    .CursorLocation = adOpenDynamic
    .LockType = adLockPessimistic
    .Source = "select * from Disziplinen"
    .Open
End With
 
If rec1.EOF = True Then
    MsgBox "Verbindung zur Datenbank ist nicht gewährleistet"
Else
 
Do Until rec1.EOF
    Combo1.AddItem rec1!DisziplinName
    rec1.MoveNext
Loop
    rec1.Close
End If
 
Combo1.ListIndex = 0
 
Call ladedaten("Select * from starter where disziplin ='1'")
 
End Sub
 
 
 
Private Function ladedaten(ByVal sSql As String)
 
Dim rec2 As New ADODB.Recordset
 
With rec2
    .ActiveConnection = pub_con
    .Source = sSql
    .Open
End With
 
If rec2.BOF = True Or rec2.EOF = True Then
    MsgBox "Kein gültiger Datensatz vorhanden"
Else
Label1.Caption = rec2!namethema
End If
 
End Function