UFT: ADODB connection to Sql Server

'Create Connection Object

Set con=CreateObject("ADODB.connection")

'Create RecordSet Object
Set Rs=CreateObject("ADODB.Recordset")

On Error Resume next

'Open the Connection 
con.Open "Provider = sqloledb.1;Server=SUNSHINE-PC;Database=northwind;User Id=sa;Password=password;"


'run the query with record set object over opened connection


rs.open "select * from [dbo].[Categories]",con

While rs.EOF<>True


msgbox rs.Fields.Item(0)&" "&rs.Fields.Item(1)

'Bad Record for testing
msgbox rs.Fields.Item(100)

rs.MoveNext
   
   
Wend

If Err.Num<>0 Then
   
    msgbox "Something Wrong with ADOBDB"
End If

rs.Close
con.Close

Set rs=nothing
Set con=nothing