vb连接服务器端oracle 数据库求救！

[ruralclimber]

在一台服务器的linux 平台下装上oracle 9.2.0.1,并用dbca创建了一数据库。在客户机上安装了oracle 客户端软件。现在要在此客户机上用vb开发基于该数据库的应用程序（比如对数据库的查询，插入等），请问现在如何使vb连上服务器机上的oracle 数据库呀？ 用什么控件？ 是ADO最好吗？该怎样填加代码？

谢谢！

[flyingcode]

//////////////////试试看咯//////////////////////

Option Explicit

Public strConn As String
Public oracleConn As New ADODB.Connection

Public Function OpenOracleDB() As Boolean
On Error GoTo proc_error
oracleConn.Open strConn
If oracleConn.State = 1 Then
OpenOracleDB = True
Else
OpenOracleDB = False
End If
proc_exit:
Exit Function
proc_error:

GoTo proc_exit
MsgBox "OpenOracleDB()" & Err.Description
End Function


Public Function CloseOracleDB() As Boolean
On Error GoTo proc_error
If oracleConn.State = 0 Then CloseOracleDB = True
oracleConn.Close
If oracleConn.State = 0 Then
CloseOracleDB = True
Else
CloseOracleDB = False
End If
proc_exit:
Exit Function
proc_error:

GoTo proc_exit
MsgBox "CloseOracleDB()" & Err.Description
End Function

Private Sub Class_Initialize()
strConn = "Provider=MSDAORA.1;User ID=hr;PassWord=111;Data Source=hgf;Persist Security Info=False;"
End Sub

Private Sub Class_Terminate()
CloseOracleDB
End Sub
////////////////
Option Explicit

Private Sub Command1_Click()
Dim db As COracleDB
Set db = New COracleDB
db.OpenOracleDB
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from jobs", db.oracleConn, adOpenKeyset, adLockReadOnly
Dim i As Integer
i = 1
Me.MSFlexGrid1.Rows = Me.MSFlexGrid1.Rows + rs.RecordCount - 1
Do Until rs.EOF
Me.MSFlexGrid1.TextMatrix(i, 1) = rs.Fields("job_id") & ""
Me.MSFlexGrid1.TextMatrix(i, 2) = rs.Fields("job_title") & ""
Me.MSFlexGrid1.TextMatrix(i, 3) = rs.Fields("min_salary") & ""
Me.MSFlexGrid1.TextMatrix(i, 4) = rs.Fields("max_salary") & ""
rs.MoveNext
i = i + 1
Loop
End Sub