ADO、DataGrid简单问题，请前辈帮忙（在线等待）

Question

我第一次用VB、对ODBC也不太熟  
我想查看SQLserver  里自建的一个表的内容，在master里的TATBLE1表 有name、ago两厢。1、先窗体上放了ado和DataGride
2、设ConnectionString->ODBC->新建-〉用户数剧源-〉SQLserver-〉名称、服务器
（这都正确）-〉n个下一步（默认是master)->在connectString中选中
3.Recordsourse->2adcmdTable->Table1
4.DataGrid
           DataSourse   ADODC1
           DataMember 空格
           AllowUpadate  true
           AllowDelete   true
           AllowAddnew   true
接着树上说、右建DataGride“检索字段”，应该是空件对应数据库字段，但没反应。请大虾们指点

Answer 1

查查以前的帖子 
Public cnn2 As ADODB.Connection
Public myre As ADODB.Recordset
Public Sub Main()
Set cnn2 = New ADODB.Connection
    cnn2.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
     "dbq=" & App.Path & "\数据库名.mdb"
   cnn2.ConnectionTimeout = 30
    cnn2.CursorLocation = adUseClient
    cnn2.Open
form1.show
end sub
Private Sub Form_Load()
    Set myre = New ADODB.Recordset
     myre.Open "select * from talbe order by 编号 desc", cnn2, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = myre
end sub

Answer 2

兄弟多谢了
可我用的是SQLserver 这个不行吧？

Answer 3

使用ADO对象做，不用ADO控件。
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的。
示例：private sub command1_click()
dim adoCN as new adodb.connection'连接对象
dim rs as new adodb.recordset'记录集对象
dim strcon as string,sqlstr as string
strcon = "Provider=SQLOLEDB;Driver={SQL Server};Server=服务器名;Uid=用户名;Pwd=密码;Database=数据库名"'连接字符串
adoCN.Open strcon'打开连接(数据库)
rs.CursorLocation = adUseClient'使用客户端游标
sqlstr = "SELECT * FROM XXXX"
rs.Open strSQL, strcon,3,3
if rs.bof and rs.eof then
   msgbox "没有查询到记录!!!"
   exit sub
else
  set datagird1.datasource=rs'将记录集显示在datagrid控件中
  datagrid1.refresh
end if
end sub