VB6.0连接oracle 10G 查询教多数据时出现的问题

我也能成功连接oracle并获取数据,但是当获取的数据量稍微过大一点时.
我的VB程序就会变成没响应状态....
我想应该是 的连接数据库方式的问题,大家帮我看看怎么解决下.
我代码里是通过什么方式连接数据库的?
我其实不太明白,我并没有拉adodb这样的控件出来
我也都没建立数据源
用数据源连接数据库会不会快点呢?
请大家给我说下具体怎么用数据源连接oracle把,谢谢了
另我见有个叫 ORADC 的控件,怎么是怎么使用的呢?

最后,VB怎么读取和写入clob类型的数据啊

我的代码如下

Private Sub Command1_Click()

Dim mysqlstr As String

Set conn = New adodb.Connection

Set rs = New adodb.Recordset



conn.ConnectionString = "Provider=MSDAORA.1;User ID=system;Password=852;Data Source=orcl;Persist Security Info=False;"

'conn.ConnectionTimeout = 30

conn.Open



mysqlstr = "select * from ok_mydate "   'sql语句





Set rs = conn.Execute(mysqlstr)   '建立记录集

Do While Not rs.EOF



    For i = 0 To rs.Fields.Count - 1

        T_rs.Text = T_rs.Text & rs.Fields(i)         '输出表中各字段

        T_rs.Text = T_rs.Text & vbCrLf '换行

    Next i

    

    T_rs.Text = T_rs.Text & vbCrLf & "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*" & vbCrLf & vbCrLf '换行

   

    rs.MoveNext

  

Loop

End Sub