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.Recordsetconn.ConnectionString = "Provider=MSDAORA.1;User ID=system;Password=852;Data Source=orcl;Persist Security Info=False;"
'conn.ConnectionTimeout = 30
conn.Openmysqlstr = "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