Private Sub Befehl16_Click()
Dim i As Long, x As Long
With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
vnt(x) = .ItemData(x)
MsgBox vnt(x)
x = x + 1
End If
Next
End With
For i = LBound(vnt()) To UBound(vnt())
Debug.Print fnSTAAT(vnt(i))
Next i
End Sub
Function fnSTAAT(ByVal sBedingung As String) As String
Dim s As String
s = "SELECT TBL_STAAT.KDNR" & Chr(32)
s = s & "FROM TBL_STAAT" & Chr(32)
s = s & "WHERE (((TBL_STAAT.KDNR)=" & sBedingung & ";"
fnSTAAT = s
End Function