VB链接远程Oracle代码

Dim Conn As ADODB.Connection
       Dim  rs  As ADODB.Recordset  
       Dim strds As String

       Dim strConn As String    

strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=10.0.0.1)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=topprod)))" & Chr(34)  
      strConn = "Provider=MSDAORA.1;Password=test;User ID=test;Data Source=" & strds & ";Persist Security Info=True"  
       Conn = New ADODB.Connection  
       rs = New ADODB.Recordset  
      Conn.ConnectionString  = strConn
      Conn.Open 
       Dim sql As String
     sql ="select tlf06,tlf10*tlf60 as tlf10,tlf036,tlf037,tlf13 FROM tlf_file WHERE tlf01='" & p_ima01 &"' " & " AND tlf907 = 1" & "   AND tlf10 <> 0" & "   AND tlf902 NOT IN (SELEC