ADO : TO FIND TABLES WITH PSPL OR ANY OTHER DRIVER

Private Sub Form_Load()

Dim cn1 As New ADODB.Connection
Dim cn2 As New ADODB.Connection
Dim cn3 As New ADODB.Connection
Dim cn4 As New ADODB.Connection
Dim cn5 As New ADODB.Connection

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset

Dim strcn, sql As String
Dim rc As Integer
Dim i As Integer

MsgBox "METHOD 1 : cn1.Open (strcn)"
strcn= "driver={SQLserver};server=takshashila;uid=;pwd=;database="
cn1.Open (strcn)
Set rs1 = cn1.OpenSchema(adSchemaTables)

For i = 1 To 2
MsgBox rs1!table_name
rs1.MoveNext
Next

MsgBox "(METHOD 2 : cn2.Open 'D:\ravi\pspl_Access\pspl.mdb', 'admin', ' ') "

cn2.Provider = "Microsoft.Jet.OLEDB.3.51"
cn2.Open "D:\ravi\pspl_Access\pspl.mdb", "admin", ""

Set rs2 = cn2.OpenSchema(adSchemaTables)

For i = 1 To 2
MsgBox rs2!table_name
rs2.MoveNext
Next

MsgBox "METHOD 3 : cn3.Open a, b, c & & where a,b,c are DSN,uid,pwd"

a = "beta1"
b = "cn=directory manager"
c = "password"

cn3.Open a, b, c

Set rs3 = cn3.OpenSchema(adSchemaTables)

For i = 1 To 2
MsgBox rs3!table_name
rs3.MoveNext
Next

MsgBox "METHOD 4 : cn3.Open 'Beta1' "

cn4.Open "Beta1"

Set rs4 = cn4.OpenSchema(adSchemaTables)

For i = 1 To 2
MsgBox rs4!table_name
rs4.MoveNext
Next

MsgBox "cn5.Open ('dsn= beta1; userid=;password=')"

cn5.Open ("dsn= beta1; userid=;password=")

Set rs5 = cn5.OpenSchema(adSchemaTables)

For i = 1 To 2
MsgBox rs5!table_name
rs5.MoveNext
Next

cn1.Close
cn2.Close
cn3.Close
cn4.Close
cn5.Close

End Sub