請問高手：如何用vb6去sql server中抓取某一筆資料

Question

如網址中的照片所示
http://myweb.hinet.net/home7/zping/q_SQL.JPG
想要去sql server中的北風資料庫（Northwind）-->Customers(資料表)-->抓取"Thomas Hardy"這個值（如圖片中紅色框框所示）
如何用vb去寫這個程式，把"Thomas Hardy"放到Text1的文字方塊內呢？
麻煩高手將程式寄到電子信箱給我（圖片中最下面有電子信箱）
謝謝

PS.我目前已知道用vb和SQL SERVER連線

感謝您的回答
能不能教我一下
ADO的方式
今天自己測試一下
我只會用VB的adodc這種現成的方式連線
順便再說明一下
我要的程式
條件是
Where [CustomerID]= 'AROUT'
然後把"Thomas Hardy"放到Text1
麻煩了，高手
如果可以的話
是否可以把程式寄給我
我會很謝謝您的

Answer 1

看看這樣可不可以
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB;Network Library=DBMSSOCN;Data Source=你的ip,1433;Initial Catalog=Northwind;User Id=你的帳號;Password=你的密碼"
cn.Open

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Customers where customerID like 'AROUT'", cn
Text1 = rs.Fields(2).Value
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Answer 2

不知道你是用DAO還是ADO去連結...XD,反正SQL語法都ㄧ樣,假設RS是Recordset
SQL語法:Select * From Customers Where [CustomerID]= 'AROUT' And [ContactName]='Thomas Hardy'
If Rs.RecordCount>0 Then Text1.Text = Rs("ContactName")