Data type mismatch in criteria expression.แก้ไม่ตกจริงๆครับ รบกวนด้วยครับผม _/\_

Sub editMemberData() ' คิวรีข้อมูลออกมาเก็บไว้บันทึกเข้าระบบสมาชิก

        With conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        If lblmembershow.Text.Trim() = "" Then
            Exit Sub
        End If
        Dim sb As New StringBuilder()
        sb.Remove(0, sb.Length)
        sb.Append(" SELECT IDMember,MemberCount,MemberTotal")
        sb.Append(" FROM member")
        sb.Append(" WHERE (IDMember=@IDMember)")
        Dim SqlMember As String = sb.ToString()

        Dim com As New OleDbCommand()
        Dim dr As OleDbDataReader
        Dim dt As DataTable
        With com

            .CommandType = CommandType.Text
            .CommandText = SqlMember
            .Connection = conn
            .Parameters.Clear()
            .Parameters.Add("IDMember", OleDbType.VarChar).Value = lblmembershow.Text.Trim()
            dr = .ExecuteReader()

            If dr.HasRows Then

            End If
            dt = New DataTable()
            dt.Load(dr)
            Me.lblmembershow.Text = dt.Rows(0).Item("IDMember").ToString()
            Dim mmc As String = dt.Rows(0).Item("MemberCount").ToString()
            Dim mmt As String = dt.Rows(0).Item("MemberTotal").ToString()

            Dim lblfree As Integer = System.Convert.ToInt32(mmt) 'เอาไว้ลบจำนวนยอดซื้อราคา
            ' Dim lbltotalby As Integer = System.Convert.ToInt32(mmc)  'ผลรวมเอาไว้ลบจำนวนแก้ว
            Dim memberUpdate As Integer = System.Convert.ToInt32(lblcount.Text)
            Dim MemberIDD As Integer = System.Convert.ToInt32(lblmembershow.Text) 'รหัสสมาชิก
            Dim UpdateMember As Integer = CInt(mmc) + memberUpdate 'เอาตรงนี้ไปอัพเดทยอดซื้อลูกค้า



            If MessageBox.Show("ยอดสะสมเพิ่มเป็น " & UpdateMember.ToString, "คำยืนยัน", MessageBoxButtons.OK, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
                'ใส่ UPDATE ข้อมูลสมาชิกตรงนี้ 
                Dim strSQL As String = ""
                strSQL = "UPDATE [member] SET [MemberCount] = '" & UpdateMember & "' WHERE IDMember = '" & MemberIDD & "'"


                Dim cmdsave As New OleDbCommand(strSQL, conn)
                With cmdsave
                    .CommandType = CommandType.Text
                    .CommandText = strSQL
                    .Connection = conn
                    cmdsave.ExecuteNonQuery()
                End With
            End If


        End With
        conn.Close()
        dr.Close()
    End Sub