Dim oRs As New ADODB.Recordset
Dim sSQL As String
sSQL = "SELECT Feld2 FROM Tabelle WHERE Feld1 = '" & Text1.Text & "'"
oRs.CursorLocation = adUseClient
oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
If Not oRs.Bof And Not oRs.Eof Then
  Label1.Caption = oRs("Feld2")
End If
oRs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de