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(D s1)
Case "Studio"
daStudio.Fill(D s1)
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 BindingManagerB ase

Private Sub frmBrowseMovies _Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
Try
objData = New VideoData
dsMovies = objData.getMovi es("Video")
bmMovies = Me.BindingConte xt(dsMovies, "Video")
bindData()
AddHandler bmMovies.Positi onChanged, AddressOf Position_Change d
Position_Change d(sender, e)
Catch ex As Exception
End Try
End Sub

Sub bindData()
txtMovieID.Data Bindings.Add("T ext", dsMovies, "Video.MovieID" )
txtTitle.DataBi ndings.Add("Tex t", dsMovies, "Video.Titl e")
txtDirector.Dat aBindings.Add(" Text", dsMovies, "Video.Director ")
txtActor.DataBi ndings.Add("Tex t", dsMovies, "Video.Acto r")
txtActress.Data Bindings.Add("T ext", dsMovies, "Video.Actress" )
txtLength.DataB indings.Add("Te xt", dsMovies, "Video.Leng th")
txtPopularity.D ataBindings.Add ("Text", dsMovies, "Video.Populari ty")
txtYear.DataBin dings.Add("Text ", dsMovies, "Video.Year ")
txtCategory.Dat aBindings.Add(" Text", dsMovies, "Video.Category ")
txtStudioID.Dat aBindings.Add(" Text", dsMovies, "Video.StudioID ")
chkAward.DataBi ndings.Add("che cked", dsMovies, "Video.Awar ds")
End Sub

Private Sub Position_Change d(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(By Val sender As System.Object, ByVal e As System.EventArg s) Handles btnAdd.Click

If btnAdd.Text = "Add" Then

unlockTextBoxes ()
disableNavigati on()
setEditButtons( )
bmMovies.EndCur rentEdit()
bmMovies.AddNew ()
txtMovieID.Focu s()

Else

bmMovies.Cancel CurrentEdit()
lockTextBoxes()
enableNavigatio n()
resetEditButton s()

End If

End Sub