CODE:
 
Private Sub List1_Click()
On Error Resume Next
Dim rs1 As New ADODB.Recordset
Dim res, res1
Dim strSQL
    res1 = List1.Text
    strSQL = "Select * from lease where Produktname = '" & List1.List( _
      List1.ListIndex) & "'"
    rs1.Open strSQL, cn, adOpenDynamic, adLockOptimistic
    Call darstellen
    res = rs1.Fields("Produktname")
    MsgBox res
 
End Sub

mfg. f_mal