Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Dim lngMove As Long
cdf = List1.ListIndex
 
lngMove = CLng(cdf)
If cdf >= 0 Then
DTA_Datenbank.Recordset.MoveFirst
DTA_Datenbank.Recordset.Move lngMove
Else
End If
 
End Sub

Private Sub Form_Initialize()
List1.Clear
List2.Clear
For Y = 0 To DTA_Datenbank.Recordset.RecordCount - 1
X = DTA_Datenbank.Recordset.Fields(1)
A = DTA_Datenbank.Recordset.Fields(2)
List1.AddItem X, Y
List2.AddItem A, Y
DTA_Datenbank.Recordset.MoveNext
Next
Y = 0
DTA_Datenbank.Recordset.MoveFirst
End Sub