?Public Class ClsOperation

    Shared Function DBOperate(ByVal SQLString As String, ByRef Msg As String) As DataTable
        Try
            Dim CONN As String = "Server=localhost;DataBase=HrSys;Integrated Security=SSPI;Provider=SQLOLEDB"
            Dim oleconn As New OleDb.OleDbConnection(CONN)
            Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn)
            cmd.CommandType = CommandType.Text
            Dim sTokens() As String
            sTokens = SQLString.Split(" ")
            If Strings.InStr("INSERT,DELETE,UPDATE", sTokens(0).ToUpper) Then
                If oleconn.State <> ConnectionState.Open Then
                    oleconn.Open()  '打開數據庫連接
                End If
                cmd.ExecuteNonQuery()  '執行SQL語句
                If oleconn.State <> ConnectionState.Closed Then
                    oleconn.Close() '關閉數據庫連接
                End If
                If sTokens(0).ToUpper = "INSERT" Then
                    Msg = "插入記錄成功"
                End If
                If sTokens(0).ToUpper = "DELETE" Then
                    Msg = "刪除記錄成功"
                End If
                If sTokens(0).ToUpper = "UPDATE" Then
                    Msg = "更新記錄成功"
                End If
                Return Nothing
            Else
                Dim ObjectdsDataSet As New DataSet()
                Dim adapter As New OleDb.OleDbDataAdapter()
                adapter.TableMappings.Add("Table", "TEMP")
                adapter.SelectCommand = cmd
                If oleconn.State <> ConnectionState.Open Then
                    oleconn.Open()  '打開數據庫連接
                End If
                cmd.ExecuteNonQuery()  '執行SQL語句
                If oleconn.State <> ConnectionState.Closed Then
                    oleconn.Close() '關閉數據庫連接
                End If
                adapter.Fill(ObjectdsDataSet) '填充數據集
                Return ObjectdsDataSet.Tables("TEMP")
            End If
        Catch
            MsgBox(Err.Description)
        End Try
    End Function
End Class