I have a code for deleting an entry in Access DB in VB2012. The MessageBox Does not do what's it's supposed to do. Help.

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        Dim subName As String = txtName.Text
        Dim subadd As String = txtAdd.Text
        Dim subage As String = txtAge.Text
        Dim subsex As String = txtSex.Text
        Dim subOcc As String = txtOcc.Text
        Dim subCS As String = txtCS.Text
        Dim subcn As String = txtCN.Text
        Dim subremarks As String = txtRemarks.Text

        MsgBox("Delete Record?", MsgBoxStyle.YesNo)
        If MsgBoxResult.Yes Then
            provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
            dataFile = "C:\Dr Logger\Dr Logger Files1.accdb"
            connString = provider & dataFile
            myConnection.ConnectionString = connString
            myConnection.Open()
            Dim str As String
            str = "Delete from Logs Where Name = '" & txtName.Text & "'"
            Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
            Try
                cmd.ExecuteNonQuery()
                cmd.Dispose()
                myConnection.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            ListBox1.Items.Remove(ListBox1.SelectedItem)

            txtName.Text = ""
            txtAdd.Text = ""
            txtAge.Text = ""
            txtSex.Text = "-----"
            txtCN.Text = ""
            txtCS.Text = "-----"
            txtRemarks.Text = ""
            txtOcc.Text = ""
        ElseIf MsgBoxResult.No Then
            txtName.Text = subName
            txtAdd.Text = subadd
            txtAge.Text = subage
            txtSex.Text = subsex
            txtCN.Text = subcn
            txtCS.Text = subCS
            txtRemarks.Text = subremarks
            txtOcc.Text = subOcc
        End If


    End Sub