Recordando A Visual Basic 6

Pues unas funciones en el popular y amigbale Visual Basic 6 para saber si existe una Tabla o una Vista en SQL Server.. probado en version 2000 se supone que funcionan para el 2005 tambien...

' Devuelve True si la tabla indicada está en la base usada con la conexión
Dim dt As New ADODB.Recordset
Dim existe As Boolean
existe = False
'


dt.Open "SELECT * FROM INFORMATION_SCHEMA.TABLES " & _
"WHERE TABLE_TYPE = 'BASE TABLE' WHERE Table_Name='" & nombreTabla & "' " & _
"ORDER BY TABLE_TYPE", Cadena_Conexion, adOpenStatic, adLockReadOnly
'
'da.Fill (dt)
If dt.RecordCount > 0 Then
existeTabla = True
Else
existeTabla = False
End If

End Function


Public Function existeVista(Cadena_Conexion As String, Optional ByVal nombreVista As String = "Prueba") As Boolean
' Devuelve True si la tabla indicada está en la base usada con la conexión
Dim dt As New ADODB.Recordset
Dim existe As Boolean
existe = False
'


dt.Open "SELECT * FROM INFORMATION_SCHEMA.TABLES " & _
"WHERE TABLE_TYPE = 'VIEW' AND Table_Name='" & nombreVista & "' " & _
"ORDER BY TABLE_TYPE", Cadena_Conexion, adOpenStatic, adLockReadOnly
'
'da.Fill (dt)
If dt.RecordCount > 0 Then
existeVista = True
Else
existeVista = False
End If

End Function