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 = rsEnd Sub