下面是我写的一个公用类....  我的全部数据操作基本用它,自己看吧(别忘了给点分,我没分了......)
-----------------------------------
Imports System.Data
Imports System.Data.OleDb
Public Class class_data
    Private cnstr As String = "Provider=MSDAORA;Password=kjjoa;User ID=kjjoa;Data Source=kjjoa_xf"
    '---------------------------此过程建立连接,并返回数据集----------------------------------------
    Public Function foundcn(ByVal sqltext As String, ByVal tablename As String) As DataSet
        Dim cn As New OleDbConnection(cnstr)
        Dim dap As New OleDbDataAdapter(sqltext, cn)
        Dim rs As New DataSet()
        Try
            cn.Open()
            dap.Fill(rs, tablename)
            Return rs
        Catch ee As Exception
            Exit Function
        Finally
            cn.Close()
        End Try
    End Function
    Public Function operation(ByVal sqltext As String) As String
        Dim cn As New OleDbConnection(cnstr)
        Dim cm As New OleDbCommand()
        Dim rs As New DataSet()
        cm.Connection = cn
        cm.CommandText = sqltext
        Try
            cn.Open()
            cm.ExecuteNonQuery()
        Catch ee As Exception
            Return ee.Message & "-------" & ee.ToString
            Exit Function
        Finally
            cn.Close()
        End Try
        Return "ok"
    End Function
End Class