经我测试通过,事件是这个:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 6 Then
strDBSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA\DB1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456;" ‘连接数据库的字符串
'接着是打开连接的代码,你应该会写的,如dim cn as new adodc.connection等
……
End Sub
需要完整代码的话要知道更详细一点的资料,如你要打开db1.mdb后怎么操作,是取哪个表的什么数据,放到哪里等等.