如何用VBA判断一个ACCESS是否打开

如题。我有判断excel文件是否打开的代码，但是就不做不出判断ACCESS，请哪位高手帮助下，十分感谢。
下面是判断excel文件是否打开的代码：
Sub XLOpenCheck(filn As String)
On Error Resume Next
Dim w As Object, myExcel As Object
Set myExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Exit Sub
For Each w In myExcel.Workbooks
If w.FullName = filn Or w.Name = filn Then
msgbox "已打开"
Exit For '文件已打开，退出
End If
Next w
Set w = Nothing
Set myExcel = Nothing
End Sub

可以使用宏来实现，给你一个简单的例子。Sub adoTest() Dim adoRt As Object Dim strSQL As String '// 创建ADO记录集对象 Set adoRt = CreateObject("ADODB.RecordSet") '// 设置SQL 语句 strSQL = "SELECt * FROM uTemp WHERe False" With adoRt '// 设置需要连接数据库 .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\栽培者\程序\打印类\测试\printTest.mdb" .CursorLocation = 3 .CursorType = 1 .LockType = 3 '// 设置SQL语句 .Source = strSQL '// 准备打开记录集 .Open '// 新增记录 .AddNew '// 赋值 .Fields("Name").Value = Range("A1").Value .Fields("Sex").Value = Range("B1").Value .Fields("Age").Value = Range("C1").Value '// 更新 .Update '// 判断并关闭记录 If .State = 1 Then .Close End If End With '// 从内存中释放 Set adoRt = NothingEnd Sub

private sub command1_click() on error goto command1_click_err static acc as access.application dim db as dao.database dim strdbname as string strdbname = currentproject.path & "\b.mdb" set acc = new access.application acc.visible = true set db = acc.dbengine.opendatabase(strdbname, false, false) 'set db = acc.dbengine.opendatabase(strdbname, false, false, "wd=123456") acc.opencurrentdatabase strdbname db.close set db = nothingcommand1_click_exit: exit subcommand1_click_err: msgbox err.description resume command1_click_exitend sub