vb 连接oracle数据库

         
    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=system;Password=bupt8971;Data Source=TEST;"
   
    strQuery = "select   *   from   Patrol"
    Set rs = New ADODB.Recordset
    rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
    cmbID.Text = ""
    cmbName.Text = ""
    If rs.EOF Then
    Else
    While Not rs.EOF
        cmbID.AddItem rs(0)
        cmbName.AddItem rs(1)
        rs.MoveNext
    Wend
    End If
         cn.Close