请帮我看看这段代码。

Question

以下是我在EXCEL里用VBA编写的一段代码。Public Sub getdata() 
 Set gConnection = New ADODB.Connection
 gConnection.Open "dsn=yingyun", "sa", ""
 Set rsStudentinfo = New ADODB.Recordset
 rsStudentinfo.Open "select * from department where s_deptid ='010101'", gConnection, adOpenStatic, adLockOptimistic Set MySheet = Workbooks(1).Sheets(1)
   MySheet.Range("B8").Value = rsStudentinfo.Fields(1)
End Sub我想实现的愿望是：我每在任意一个单元格中输入数据，EXCEL会从数据库(Access)中检索到合适的数据放入它右面的单元格内，
比如：
在A1中填数，结果放入B1中
在A2中填数，结果放入B2中
在A3中填数，结果放入B3中
....
....
....

Answer 1

ADOpenStatic, adLockOptimistic 参数在recordset打开前才可用，第5，6行换一下。