vb访问oracle的链接

Private Sub Form_Load()
          Dim cn As ADODB.Connection
          Dim rs     As ADODB.Recordset
          Set cn = New ADODB.Connection
          cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data    Source=TEST;"
          strQuery = "select   *   from   aaa"
          Set rs = New ADODB.Recordset
          rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
          Set DataGrid1.DataSource = rs
End Sub