'*********************************************************
' Function ObjTypOfRecordSource(
'          RecordSource As String) As Integer
'
' Devuelve el tipo de objeto de datos de la cadena que se
' le pase como argumento
'
' Valores devueltos:
'   0 = Cadena SQL
'   1 = Tabla
'   2 = Consulta
'  -1 = El objeto no existe
'
' Argumentos
'   RecordSource: Nombre de la tabla, consulta o cadena
'   SQL que se vaya a analizar
'
Sub wzObjTypOfRecordSource()
Dim tipo As Integer

    WizHook.Key = 51488399
    
    Debug.Print WizHook.ObjTypOfRecordSource _
                       ("SELECT * FROM Tabla1")
    Debug.Print WizHook.ObjTypOfRecordSource("Tabla1")
    Debug.Print WizHook.ObjTypOfRecordSource("Consulta1")

End Sub
'*********************************************************