帮忙看一下。谢谢！

Dim cnLink  As New RDO.rdoConnection
dim rs as new rdo.rdoResultset
Dim strquery As String
Private Sub Command1_Click()
strquery = "SELECT * FROM 书目主表"
cnLink.Execute strquery
End Sub
Private Sub Form_Load()
//这个起连接作用。别人编好的，我用。哈，不好意思，可以连上。
Dim strServerName   As String
strServerName = GetSetting("LibrarySys", "System", "ServerName", "")
If strServerName = "" Then Exit Sub
With cnLink
    .Connect = "driver={sql server};server=" & strServerName & ";uid=libdev;pwd=21027552;database=临时数据库"
    .CursorDriver = rdUseNone
    .EstablishConnection rdDriverNoPrompt
End With
end if
End Sub
我是个初学，由于工作关系，我现在用到vb和rdo，但，我最起码的，让一个文本框显示
表里的一个字段值都不会！
所以，希望大家帮我。
如果，我让text1.text=字段的一个值，在上面程序中如何设？
如果我用一个datagrid来显示一个表或多个表查询结果，如果做。
我真心希望大家帮帮我！！！！
对了，rdo.rdoResultset这个什么时候用到？