مشكلة في زر الحفظ

بعد الانتهاء من كود الحفظ في أحد الشاشات فإن البيانات لا يتم حفظها لعدم ادخال كل البيانات حيث انها لاتكون كلها متوفرة

وهذا هو الكود

    Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        If Not check() Then
            Exit Sub
        End If
        Select Case (test)
            Case 1
                CreateConn()
                Dim SQLString As String = "SELECT * FROM main WHERE MOB='" & Me.mob.Text & "'"
                Dim objCommand As OleDbCommand = New OleDbCommand(SQLString, getConn())
                OpenConn()
                Dim objDataReader As OleDbDataReader
                Try
                    objDataReader = objCommand.ExecuteReader()
                    If objDataReader.HasRows Then
                        has_row = 1
                    Else
                        has_row = 2
                    End If
                    objDataReader.Close()
                Catch OleDbExceptionErr As OleDbException
                    MessageBox.Show(OleDbExceptionErr.Message, "eeee Access SQL")
                End Try
                objCommand.Dispose()
                objCommand = Nothing
                objDataReader = Nothing
                CloseConn()
                If has_row = 2 Then
                    If MsgBox(" هل تريد حفظ السجل الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then
                        Exit Sub
                    End If
                    Try
                        Dim SavInto As New OleDb.OleDbCommand
                        CreateConn()
                        SavInto.Connection = getConn()
                        SavInto.CommandType = CommandType.Text
                        SavInto.CommandText = "INSERT INTO main(sr,name,tel,mob,mob1,email,gover,rigon,part,str,sst,home,vip,zk_date,sex)" & _
                        "values ('" & Me.Txt_id.Text & "','" & Me.Txt_nam.Text & "','" & Me.tel.Text & "','" & Me.mob.Text & "' " & _
                        ",'" & Me.mob1.Text & "','" & Me.mail.Text & "','" & Me.gover.SelectedValue.ToString & "','" & Me.rgon.SelectedValue.ToString & "' " & _
                        ",'" & Me.part.Text & "','" & Me.street.Text & "','" & Me.s_street.Text & "','" & Me.txt_home.Text & "', '" & Me.vip.SelectedValue.ToString & "','" & Me.MaskedTextBox1.Text & "','" & Me.Comb_sex.SelectedValue.ToString & "') "
                        OpenConn()
                        If SavInto.ExecuteNonQuery() Then
                            SavInto.Dispose()
                            SavInto = Nothing
                            CloseConn()
                            ts.Text = "تمت الإضافة بنجاح"
                            fill_ds()
                            NavigateRecords()
                            MyCurrencyManager.Position = MyCurrencyManager.Count - 1
                            record_count()
                            btn_enable(True)
                        Else
                            MsgBox("فشلت عملية الإضافة", MsgBoxStyle.MsgBoxRight, "رسالة خطأ")
                        End If
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                Else
                    MsgBox("البيانات المدخلة مكررة ... من فضلك تأكد من البيانات ", MsgBoxStyle.Critical, "خطـــأ")
                End If
            Case 2
                If MsgBox(" هل تريد حفظ التعديل على البيان الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
                Try
                    Dim intPosition As Integer = MyCurrencyManager.Position
                    Dim SavInto As New OleDb.OleDbCommand
                    CreateConn()
                    SavInto.Connection = getConn()
                    SavInto.CommandType = CommandType.Text
                    SavInto.CommandText = "update main set " & _
                    "name='" & Me.Txt_nam.Text & "'," & _
                    "tel='" & Me.tel.Text & "'," & _
                    "mob='" & Me.mob.Text & "'," & _
                    "mob1='" & Me.mob1.Text & "'," & _
                    "email='" & Me.mail.Text & "'," & _
                    "gover='" & Me.gover.SelectedItem.ToString & "'," & _
                    "rigon='" & Me.rgon.SelectedItem.ToString & "'," & _
                    "part= '" & Me.part.Text & "'," & _
                    "str='" & Me.street.Text & "'," & _
                    "sst=" & Me.s_street.Text & "'," & _
                    "home=" & Me.txt_home.Text & "'," & _
                    "vip='" & Me.vip.SelectedItem.ToString & "'," & _
                    "zk_date=" & Me.MaskedTextBox1.Text & "'," & _
                    "SEX='" & Me.Comb_sex.SelectedItem.ToString & "'," & "' where sr = " & CType(Me.Txt_id.Text, Integer)
                    OpenConn()
                    If SavInto.ExecuteNonQuery() Then
                        SavInto.Dispose()
                        SavInto = Nothing
                        CloseConn()
                        ts.Text = "تم التعديل بنجاح"
                        fill_ds()
                        NavigateRecords()
                        MyCurrencyManager.Position = intPosition
                        record_count()
                        btn_enable(True)
                    Else
                        MsgBox("فشلت عملية التعديل", MsgBoxStyle.MsgBoxRight, "رسالة خطأ")
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
        End Select
        Me.btn_add.TabIndex.ToString()
    End Sub