excel连接ORACLE正确方法

Private Sub CommandButton1_Click()

Dim conn     As New ADODB.Connection
Dim rs     As New ADODB.Recordset
Dim j, m As Integer
Dim Table As String '指定table名稱

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
i = 1
j = 2

On Error GoTo err '異常處理
conn.Open "Provider=MSDAORA.1;Password=1;User ID=perf0210;Data Source=200;Persist Security Info=True"
'Persist Security Info属性的意思是表示是否保存安全信息，其实可以简单的理解为“在数据库连接成功后是否保存密码信息"，
'True表示保存，False表示不保存
'ADO.NET中默认情况下为false
rs.Open "select * from ht_tradelogs", conn, adOpenStatic, adLockReadOnly

' 先把欄位寫出來
For m = 1 To rs.Fields.Count
Sheet1.Cells(j, m) = rs(m - 1).Name
Next
j = j + 1

'    寫內容
rs.MoveFirst
While Not rs.EOF
For m = 1 To rs.Fields.Count
Cells(j, m) = rs(m - 1).Value
Next
rs.MoveNext
j = j + 1
If j > 12 Then
MsgBox ("只顯示前10筆資料！")
Exit Sub
End If
Wend
Exit Sub

err: '異常處理
    MsgBox ("Tbale名稱錯誤或者初始化連接失敗！")

End Sub