خطا في مشروع VB

السلام عليكم 

انا طالبة اخذ مشروع تخرج فكرة مشروعي يتحدث عن برنامج للصيدليه بحيث يدخل اسم الدواء وتاريخ صلاحيته 

عملت الاكواد لكن يوجد اخطاء وعند تشغيل البرنامج لايعمل 

هاذي الاكواد في MDIparent 

Imports System.Data.SqlClient

Public Class MDIParent1
    Dim winclass As New Class1

    Dim ISUpdate As Boolean
    ' زر جديد 
    Private Sub newmed_Click_1(sender As System.Object, e As System.EventArgs) Handles newmed.Click
        ComboBox1.Enabled = True
        TextBox1.Enabled = True
        TextBox2.Enabled = True

        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""

    End Sub

    ' زر الحفظ 
    Private Sub Savemed_Click(sender As System.Object, e As System.EventArgs) Handles Savemed.Click
        If ComboBox1.Text.Trim = "" And TextBox1.Text.Trim = "" And TextBox2.Text.Trim = "" Then
            MsgBox("لم نقم بادخال بيانات لكي يتم حفظها ", MsgBoxStyle.Critical, "تنبيه")
            Exit Sub
        End If
        '....................................................................................................................
        'امر التعديل 
        Dim IsUpdate As Boolean
        If IsUpdate = True Then
            Dim updateok As Boolean = winclass.SqlExicute("update medicinename set medi_name='" & ComboBox1.Text & "' and update medicine1 set product_date= '" & TextBox1.Text & "' and end_date'" & TextBox2.Text & "' where mID=" & TextBox3.Text & " ")
            If updateok = True Then
                MsgBox("تم عمليه تعديل البيانات ", MsgBoxStyle.Information, "تاكيد عمليه التعديل")
                ComboBox1.Enabled = False
                TextBox1.Enabled = False
                TextBox2.Enabled = False
                TextBox3.Text = ""
                ComboBox1.Text = ""
                TextBox1.Text = ""
                TextBox2.Text = ""
                fillDataGrid()
            Else
                MsgBox("error", MsgBoxStyle.Critical, "error")

            End If
        Else

            '....................................................................................................................
            Dim SaveOk As Boolean = winclass.SqlExicute(" insert into medicinename values ('" & ComboBox1.Text & "') and insert into medicine1 values ('" & TextBox1.Text & "' and '" & TextBox2.Text & "')")

            If SaveOk = True Then
                MsgBox("تم عملية الحفظ", MsgBoxStyle.Exclamation, "تاكيد عملية الحفظ")
                TextBox3.Text = ""
                ComboBox1.Text = ""
                TextBox1.Text = ""
                TextBox2.Text = ""
                fillDataGrid()
            End If
        End If
    End Sub
    
    Private Sub fillDataGrid()
        winclass.FillDataGrid(DataGridView1, "select * FROM medicinename & medicine1")
        DataGridView1.Columns(0).HeaderText = "الرقم"
        DataGridView1.Columns(0).Visible = False
        DataGridView1.Columns(1).HeaderText = "medicine name"
        DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

        DataGridView1.Columns(2).HeaderText = "product date "
        DataGridView1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

        DataGridView1.Columns(3).HeaderText = "end date"
        DataGridView1.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill


    End Sub

        'اتصال قاعدة البيانات 
    Private Sub MDIParent1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            Class1.sqlcon.ConnectionString = "Data Source=USER-PC\SQLEXPRESS;Initial Catalog=medicine;Integrated Security=true"
            ' MsgBox("تم الاتصال", MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub dg_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg_CellClick.
        ISUpdate = True

        ComboBox1.Enabled = True
        TextBox1.Enabled = True
        TextBox2.Enabled = True

        TextBox3.Text = dg(0, e.RowIndex).value
        ComboBox1.Text = dg(1, e.RowIndex).value
        TextBox1.Text = dg(2, e.RowIndex).value
        TextBox2.Text = dg(3, e.RowIndex).value

    End Sub

    
    Private Sub Deletemed_Click(sender As System.Object, e As System.EventArgs) Handles Deletemed.Click
        Dim DeleteOk As String = MsgBox("هل تريد حذف بينات", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تاكيد الحذف")
        If DeleteOk = vbYes Then
            'موتاكده من الكود
            Dim Deleteconfirm As Boolean = winclass.SqlExicute("Delete from medicinename and medicin1 where mID=" & TextBox3.Text)
            If Deleteconfirm = True Then
                MsgBox("تم عملية الحذف", MsgBoxStyle.Exclamation, "عنوان الرساله")
                ComboBox1.Text = ""
                TextBox1.Text = ""
                TextBox2.Text = ""
                fillDataGrid()
            Else
                MsgBox("خطا في الحذف", MsgBoxStyle.Critical, "خطأ")
            End If
        End If
    End Sub
End Cl

وايضا عملت class 

وهذا الكود 

Imports System.Data.SqlClient

Public Class Class1
    Public Shared sqlcon As New SqlConnection
        'دالة حفظ وتعديل وحذف 
        Public Function SqlExicute(ByVal sqlstatment As String) As Boolean
            Try
                Dim Cmd As New SqlCommand
                Cmd.commandtext = sqlstatment
            sqlcon.Open()
            Cmd.connection = sqlcon
                Cmd.executeNonQuery()

            Catch ex As Exception
                MsgBox(ex.Message)
        Finally
            sqlcon.Close()
            End Try

            Return True

        End Function
        'جلب البيانات من قاعدة البيانات 
        Public Function sqlreturn(ByVal sqlstatment As String) As DataSet
            Dim ds As New DataSet
            Try
            If sqlcon.State = ConnectionState.Open Then
                sqlcon.Close()
            End If
            Dim sda As New SqlDataAdapter(sqlstatment, sqlcon)
                sda.fill(ds)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
            sqlcon.Close()
            End Try
            Return ds
        End Function

        'دالة تعبئه الداتا قريد
    Public Function FillDataGrid(ByVal dg As DataGridView, ByVal sqlstatment As String) As DataSet
        Dim ds As New DataSet
        Dim bs As New BindingSource
        Try
            Dim sda As New SqlDataAdapter(sqlstatment, sqlcon)
            sda.fill(ds)
            bs.DataSource = ds.Tables(0)
            dg.DataSource = bs

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            sqlcon.Close()

        End Try
        Return ds
    End Function

        Private Sub FillComboBox(ByVal cbo As ComboBox, ByVal TableName As String, ByVal col_name As String, ByVal col_value As String)
            Try
            Dim VarSql As String

                VarSql = ""
            VarSql = "select" + col_value + "," + col_value + "from" + TableName + "" + whr()
            Dim sda As New SqlDataAdapter(VarSql, sqlcon)
                Dim ds As New DataSet()
                sda.fill(ds)
                cbo.DataSource = ds.Tables(0)
                cbo.DisplayMember = col_name
                cbo.ValueMember = col_value
            Catch
            End Try
    End Sub

End Class

واذا تريدون ملف كامل هذا هو 

http://www.m5zn.com/d/?14620332

ارجو ان تساعدوني عاجلا وشكرا لكم