ทำ Win Form สั่ง Update ข้อมูลเข้าไปตาราง Access ไม่ได้ครับ ช่วยดูให้ทีครับว่าเป็นอะไร

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        If Me.txtName.Text = "" Then
            MessageBox.Show("Please input (Name)")
            Me.txtName.Focus()
            Exit Sub
        End If

        If Me.txtID.Text = "" Then
            MessageBox.Show("Please input (Email)")
            Me.txtID.Focus()
            Exit Sub
        End If

        Dim viewConnection As OleDbConnection

        viewConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\172.16.144.8\Share\CS\FindbyPhone\Data\FindbyPhone.mdb;")
        viewConnection.Open()

        Dim viewCommand As OleDbCommand = viewConnection.CreateCommand()

        viewCommand.CommandText = "UPDATE [Customers] SET" & "[CustName] = '" & Me.txtName.Text & "'  " & " WHERE CustomerID = '" & 999999 & "' "
        viewCommand.CommandType = CommandType.Text
        viewCommand.ExecuteNonQuery()
        viewConnection.Close()

        MessageBox.Show("Update Successfully")


    End Sub