Public Function BuscarTabla(sTabla As String) As Boolean
Dim dbsActual As Database
Dim cn As String
Set dbsActual = OpenDatabase("TuBase.mdb", False, False, ";pwd=" & DB_KLAVE)
For Each tdef In dbsActual.TableDefs
If tdef.Name = sTabla Then
BuscarTabla = True
Exit Function
End If
Next tdef
Set dbsActual = Nothing
End Function
