Public Function dbTableExists(oConn As ADODB.Connection, _
  ByVal sTableName As String) As Boolean
 
  Dim oRs As ADODB.Recordset
 
  ' Recordset über Tabellen-Schema erstellen
  Set oRs = oConn.OpenSchema(adSchemaTables)
 
  ' Recordset durchlaufen und Tabellen prüfen
  Do Until oRs.EOF
    If oRs("TABLE_TYPE") = "TABLE" Then
      If oRs("TABLE_NAME") = sTableName Then
        dbTableExists = True: Exit Do
      End If
    End If
    oRs.MoveNext
  Loop
  oRs.Close
  Set oRs = Nothing
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de