Checking Table Exist in Access Database or Not

[littleiitin]

Option Explicit

Sub TableExits(strDBPath As String, strTable As String)
    
    Dim adoConn     As Object
    Dim rstRec      As Object
        
    Set adoConn = CreateObject("ADODB.Connection")
    Set rstRec = CreateObject("ADODB.Recordset")
    
    adoConn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & strDBPath & ";"
    On Error GoTo xxx:
    rstRec.Open "Select * from " & strTable, adoConn, 3, 3
xxx:
    If Err.Number = -2147217865 Then
        MsgBox "Table does not Exist.", vbInformation, "Table Exists or Not"
    Else
        MsgBox "Table Exists.", vbInformation, "Table Exists or Not"
    End If
    
End Sub

How to Use:

Sub test()

    Dim strDBPath   As String
    Dim strTable    As String
    '===========DB Path======
    strDBPath = "K:\xys\XYZDB.mdb"
    '=======================
    '=====Table Name=========
    strTable = "abc"
    '=======================
    Call TableExits(strDBPath, strTable)
    
End Sub