Data base Connection

Dim objConn,objRecSet
Set objConn= CreateObject("ADODB.connection")
Set objRecSet = CreateObject("ADODB.recordset")
objConn.open " Server: , Database: , User Name , Password " ' connection string about ur Datanbase objRecSet.open "Select * from Table Name "
objConn.close
objRecSet.close