[VB] ช่วยดู code ไห้หน่อยครับว่าผิดตรงไหน ผมหาไม่เจอครับ

 Dim EID As String = txtEID.Text

        If (txtEID.Text = "") Then
            MsgBox("กรุณาใส่ข้อมูลให้ครบ")
            Return
        End If
        '------------------------------------------------------------------------------
        If TabControl1.SelectedIndex = 1 And txtEID.Text <> "" Then
            Dim ChkStr As String
            ChkStr = (txtEID.Text).Substring(0, 1)
            If ChkStr <> "E" Then
                MsgBox("รหัสพนักงานให้ขึ้นต้นด้วยอักษร E ")
                Return
            End If
            Dim ChkStrAr() As String
            ChkStrAr = (txtEID.Text).Split("E")
            If IsNumeric(ChkStrAr(1)) = False Then
                MsgBox("รหัสพนักงานหลังอักษร E ต้องตามด้วยตัวเลขเท่านั้น ")
                Return
            End If
            If (txtEID.Text).Length < 5 Then
                MsgBox("รหัสพนักงานหลังอักษร E ต้องตามด้วยตัวเลข6ตัวเท่านั้น ")
                Return
            End If
            Dim ChkOverlap As Integer = ListBox1.FindStringExact(EID)
            If ChkOverlap <> -1 Then
                MsgBox("มีพนักงานรหัสนี้เเล้วครับ")
                Return
            End If
        End If


        '---------------------------------------------------------------------------------

        Dim sql As String = ""
        If (TabControl1.SelectedIndex = 1) Then
            sql = "INSERT INTO Employee("
            sql &= "E_ID,E_DateStart) "
            sql &= "VALUES(@EID,@EDateStart)"
        Else
            sql = "UPDATE Employee SET "
            sql &= "E_DateStart=@EDateStart"
            sql &= " WHERE E_ID='" & EID & "'"
        End If

        _cmd = New OleDbCommand(sql, _conn)

        _cmd.Parameters.AddWithValue("EID", txtEID.Text)
        Dim updateday As String = DateTimePicker1.Value
        _cmd.Parameters.AddWithValue("EDateStart", updateday)


        Dim affectedRow As Integer = _cmd.ExecuteNonQuery()
        If (affectedRow < 1) Then
            ToolStripStatusLabel1.Text = "เกิดข้อผิดพลาด! ไม่สามารถบันทึกข้อมูลได้"
            Return
        end if