QTP Connecting to SQL Server

Dim conn,strsql ' Define variables
Set conn = CreateObject ("ADODB. Connection ") ' Create connection
Conn. Connectionstring= "Provider=SQLOLEDB.1; [Email protected]; Persist Security info=true; User id=rcdb;initial catalog=ams;data source=sql.rc.itour.com.cn,2433 "' Set connection string
Conn.Open ' Open connection

If Conn.state=0 then ' if the connection status is 0, the connection fails, write to the Reporter object, or the connection succeeds
MsgBox "Database connection Failed"
Conn.close
Set conn = Nothing
Else
MsgBox "Database connection succeeded"
' Conn.execute strSQL ' execute UPDATE statement
Conn.close
Set conn = Nothing
End If

Go to Control Panel--Administrative Tools----> Data source ODBC----> Add---> Select SQL Server data source---> Set up related servers, etc.