VB 6
Dim anandtech As ADODB.Recordset
Set anandtech = New ADODB.Recordset
anandtech.Open "Select Top 1 * From Main SomeTable", YourConnStr, 2, 2
If anandtech.EOF = False Then
YourLabel.Caption = anandtech.Fields("FieldName").Value
End If
VB .NET
Dim anandtech As ADODB.Recordset = New...