Создать класс для удаления и добавления записей в БД - Visual Basic .NET

Формулировка задачи:

Привет дорогие помогите разбираться с одну задачу : Написать класс пользователей в vb.net для добавление, удаление в бд У меня есть но в консоле c#-a

Решение задачи: «Создать класс для удаления и добавления записей в БД»

textual
                            Листинг программы 
                        
 
                            
                        
Public Class urok
    'connect bd
    Dim con As New MySqlConnection("server=localhost; user id=root;    database=school_db; charset=utf8")
    Dim da As Common.DbDataAdapter
    Dim com As New MySqlCommand
    Dim dr As MySqlDataReader
    Private natija As String
    Public Sub New()
        Try
            con.Open()
        Catch ex As Exception
            MsgBox("Проблема с откритием БД", MsgBoxStyle.Exclamation)
        End Try
        com.Connection = con
    End Sub
    'Функсия для добавление урока
    Function add_fan(ByVal title As String, ByVal meta_d As String, ByVal meta_k As String, ByVal text As String)
        com.CommandText = "insert into `categories` (title,meta_d,meta_k,text) values('" & Form2.TextBox1.Text & "','" & Form2.TextBox2.Text & "','" & Form2.TextBox3.Text & "', '" & Form2.TextBox4.Text & "')"
        Try
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        natija = "ok"
        Return natija
    End Function
    'Функсия update
    Function update_fan(ByVal title As String, ByVal meta_d As String, ByVal meta_k As String, ByVal text As String)
        com.CommandText = "UPDATE `categories` set `title` = '" & Form2.TextBox1.Text & "', `meta_d` = '" & Form2.TextBox2.Text & "', `meta_k` = '" & Form2.TextBox3.Text & "', `text` = '" & Form2.TextBox4.Text & "'  WHERE `categories`.`title` ='" & Form2.TextBox5.Text & "'"
        Try
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        natija = "Update-OK"
        Return natija
    End Function
    'Функсия удалениe предмета
    Function delete_fan(ByVal title As String)
        Dim i As Integer
        i = Form1.DataGridView1.CurrentRow.Index
        title = Form1.DataGridView1.Item(1, i).Value
        com.CommandText = "delete from categories WHERE `categories`.`title` ='" & title & "'"
        Try
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        natija = "Предмет удален"
        Return natija
    End Function
End Class