Give me i want 加強版

    Public Shared Function Gmiw(ByVal com As String, ByVal rol As Integer, ByVal col As Integer, Optional ByVal conn As String = "ConnectionString") As String
        Try
            Dim db As New SysDb(conn)
            If Left(com.Trim, 6).ToLower = "select" Then
                db.SelectCommand = com
                Dim dv As Data.DataView = db.Select(New DataSourceSelectArguments)
                If dv.Count > 0 Then
                    Return dv.Item(rol).Item(col)
                Else
                    Return ""
                End If
            ElseIf Left(com.Trim, 6).ToLower = "insert" Then
                db.InsertCommand = com
                Return db.Insert()
            ElseIf Left(com.Trim, 6).ToLower = "update" Then
                db.UpdateCommand = com
                Return db.Update()
            ElseIf Left(com.Trim, 6).ToLower = "delete" Then
                db.DeleteCommand = com
                Return db.Delete()
            Else
                Return ""
            End If
        Catch ex As Exception
            LastError = ex.Message
            'MsgBox("GetPersonalInfo:" & ex.Message)
            Return ""
        End Try
    End Function