by the name of the god

i have network and DBserver as a member of this network and i want to connect to DB in this server and i using vb6
i wrote the next code
__________________________________________________ ________
__________________________________________________ ________

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=MSDAORA.1;Password=chart; User ID=chart;Data Source=; Persist Security Info=True"
rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open "SELECT * as results FROM LVTRADE"

Debug.Print "rsTemp!Results are: " & rs!Results
Debug.Print "rsTemp.Recordcount is: " & rs.RecordCount

Set rs = Nothing
__________________________________________________ _______________
but the message error appear ::: error while trying to retrieve text for error

please help me quickly