Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Password=qdccaucma;Persist Security Info=True;User ID=sa;Initial Catalog=MyDb;Data Source=sql"
rst.Close
rst.Open "MyTab", cn, adOpenKeyset, , adCmdTable
Set DataGrid1.DataSource = rst

解决方案 »

  1.   

    工程-->添加窗体-->VB数据窗体向导-->确定-->下一步-->Remote(ODBC)-->下一步....
    跟着填入相关信息(驱动程序:SQL Server,UID:用户名、默认sa,PWD:密码,数据库:选择数据库名)-->下一步....完成,就行了
      

  2.   

    请高手指点一下:cn.CursorLocation = adUseClient
     这句什么意思!我还想知道当服务器端数据库发生改变时(删除、修改、),客户端如何实时改变信息(高手能否想一些最行之有效的方法)ablefirstu将不胜感激!!!