Private Sub cmdPCList_Click()
    strPCID = lstPCList.Text
    LaengePCListText = Len(strPCID)
     nTrennZeichenStelle = InStr(strPCID, "-")
     strRestString = Left(strPCID, nTrennZeichenStelle - 2)
      vZahl = CVar(strRestString) 'der String wird in eine Varaint Variable 
      ' geschrieben
 
     Call GetSW
 
End Sub

Private Sub GetSW()
    Dim rsSWList As Recordset
 
 
    Dim cmdInstalledSW As Command
 
    Set rsSWList = New Recordset
    Set cmdInstalledSW = New Command
 
    With cmdInstalledSW
        Set .ActiveConnection = ConnectDB.connDB
        .CommandText = "select Zenworks.t$InstalledProduct.Product from" & _
          "Zenworks.t$InstalledProduct where" & _
          "Zenworks.t$InstalledProduct.Computersystem = 'vZahl'" 'hier kommt 
        ' dann der Fehler
    End With
 
    rsSWList.Open cmdInstalledSW
'der Rest fehlt noch...
 
 
 
 
End Sub

Ich fange gerade an mit VB also nicht b?se sein wenn ich dumme Fragen an Euch Experten stelle. Danke