How to connect a database

a.     With DSN: DSN Name is mydsn

Function conData()

dim con,rs

con=CreateObject("ADODB.Connection")

rs=CreateObject("ADODB.Recordset")

con.open "mydsn"

rs=con.execute("Select * from Table")

set conData=rs
End Function

b.    Without DSN:

Dim column_name,column_value

set conn=Createobject("ADODB.Connection")

Srvname="Driver={Microsoft ODBC for

Oracle}:Server=DBserver,UID=Sa,Password=sa"

conn.open Srvname

Set Rec = CreateObject("ADODB.Recordset")

SQL="select * from Users"

Rec.open SQL ,conn

Do while not Rec.eof

            For i = 0 To Rec.Fields.Count -1

                        ‘msgbox Rec.Fields.Count //counts the number of records in record set Rec

                        column_value=Rec.Fields(i).value //Fetches the value of particular field stored in record set Rec

                        column_name=Rec.Fields(i).name

                        Msgbox "Record Exist :" & column_name & " " & column_value

            next

            rs.movenext

Loop