Auswahl "Select Bestand from patronenliste where Patronename='" & _
            lstpatronen.Text & "'and '" & txtbestand.Text & "'= Bestand"
 
'------------------------------------------------------------------------------
' ---------------------------
 
Private Sub Auswahl(sql As String)
      'SQL Befehle werden geladen und ausgeführt
    Set adoRS = New ADODB.Recordset
 
    adoRS.Open sql, adoCn, adOpenDynamic, adLockOptimistic
End Sub

Auswahl "Select Bestand  from patronenliste where Patronename='" & _
            lstpatronen.Text & "'"
 
              txtbestand.Text = Bestand
 
 
'ergebnis ist null im textfeld!