已经获得一个连接对象，如何用ADO控件绑定SQL Server的一个表格，以实现浏览，修改及追加等功能？急！

Question

Private Sub Form_Load()
    If entb_main.cnn1.State = adStateClosed Then entb_main.cnn1.Open
    Set Adodc1.Recordset = entb_main.cnn1.Execute("Select * from Table1")
End Sub
说明：entb_main为数据环境，cnn1为其下的一个连接对象，程序初始化时先打开此连接，然后
设置ADO数据控件的记录集，最后，在窗体上放置一个GRID，将其DATASOURCE属性设置为
ADODC1， OK？

Answer 1

zhyzhr(zhyzhr),我试过你的办法了，还是不行，系统提示如下信息：
Current Recordset dose not support updating. This may be a limitation of the provider, or of the selected locktype.
是不是还有什么没设置好啊？还有两位，请看清题意，是已知连接对象，两位似乎置连接对象于不顾了

Answer 2

我记得用DAO加mdb数据库时，这是很简单就可以实现的，想不到一转过来就麻烦了。其实我的用意很简单，这个连接对象是在登录时得到的，以后每个数据子窗口打开各自的
记录集时都使用这个连接，这样就不用总是在重新登录了。
这个思路源自我原先使用的DAO+mdb。当然那时候是Database对象而不是Connect下面把我的程序片段也贴出来吧，请大家指点：'获得一个连接对象
   With connect1
      .ConnectionTimeout = 20
      '指示在终止尝试和产生错误前建立连接期间所等待的时间为20秒
      .Provider = "sqloledb"   '指示 Connection 对象提供者的名称
      .Properties("Data Source").Value = gStrServerName
      .Properties("Initial Catalog").Value = "fjck"
      .Properties("User ID").Value = gStrSAName
      If txtUserName <> gStrSAName Then
         .Properties("Password").Value = gStrSAKey
      Else
         .Properties("Password").Value = txtPassword
      End If
      .Open     '打开目的连接
   End With'打开记录集给Adodc
Dim recTmp As New ADODB.Recordset
recTmp.Open "Select * From [部门]", connect1, adOpenDynamic
Set Adodc1.Recordset = recTmp