Data tier problem with .addNew() won't clear text boxes.

[gav1972]

Working on this piece of code but when i click on my add button in the form the text boxes that i am using do not clear and so i can't add a new record any help
would be great. The code for my data tier and app is below thanks.

Data tier

Public Class VideoData
Public Function getMovies(ByVal strName As String) As DataSet
Select Case strName
Case "Video"
daMovies.Fill(Ds1)
Case "Studio"
daStudio.Fill(Ds1)
End Select
Return Ds1
End Function

Public Sub upDateAll(ByVal ds As DataSet, ByVal strName As String)

Try
Select Case strName
Case "Video"
daMovies.Update(ds)
Case "Studio"
daStudio.Update(ds)
End Select
Catch
Throw
End Try
End Sub

End Class

Application

Public Class frmBrowseMovies
Inherits System.Windows.Forms.Form

Dim objData As VideoData
Dim dsMovies As DataSet
Dim bmMovies As BindingManagerBase

Private Sub frmBrowseMovies_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
objData = New VideoData
dsMovies = objData.getMovies("Video")
bmMovies = Me.BindingContext(dsMovies, "Video")
bindData()
AddHandler bmMovies.PositionChanged, AddressOf Position_Changed
Position_Changed(sender, e)
Catch ex As Exception
End Try
End Sub

Sub bindData()
txtMovieID.DataBindings.Add("Text", dsMovies, "Video.MovieID")
txtTitle.DataBindings.Add("Text", dsMovies, "Video.Title")
txtDirector.DataBindings.Add("Text", dsMovies, "Video.Director")
txtActor.DataBindings.Add("Text", dsMovies, "Video.Actor")
txtActress.DataBindings.Add("Text", dsMovies, "Video.Actress")
txtLength.DataBindings.Add("Text", dsMovies, "Video.Length")
txtPopularity.DataBindings.Add("Text", dsMovies, "Video.Popularity")
txtYear.DataBindings.Add("Text", dsMovies, "Video.Year")
txtCategory.DataBindings.Add("Text", dsMovies, "Video.Category")
txtStudioID.DataBindings.Add("Text", dsMovies, "Video.StudioID")
chkAward.DataBindings.Add("checked", dsMovies, "Video.Awards")
End Sub

Private Sub Position_Changed(ByVal sender As Object, ByVal e As EventArgs)
With bmMovies
lblRecord.Text = "Record " & (.Position + 1) & " of " & .Count
End With
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

If btnAdd.Text = "Add" Then

unlockTextBoxes()
disableNavigation()
setEditButtons()
bmMovies.EndCurrentEdit()
bmMovies.AddNew()
txtMovieID.Focus()

Else

bmMovies.CancelCurrentEdit()
lockTextBoxes()
enableNavigation()
resetEditButtons()

End If

End Sub