Function TableExists(conn As ADODB.Connection, tableName As String) As Boolean On Error Resume Next Dim rst As 网页链接 Set rst = New 网页链接网页链接 "SELECT TOP 1 * FROM " & tableName, conn, adOpenForwardOnly, adLockReadOnly If 网页链接 = adStateOpen Then TableExists = True Else TableExists = False End If 网页链接 Set rst = Nothing On Error GoTo 0 End Function