The Following Sample of Code Contains Errors

The following sample of code contains errors. Rewrite the incorrect statements to correct all errors
-Private Sub btnNext_Click(ByVal sender As Object,ByVal e As System.EventArgs)Handles btnNext.Click
' moves to the next record
TblClientBindingSource.MovePrevious()
End Sub
Private Sub btnPrevious_Click(ByVal sender As Object,ByVal e As System.EventArgs)Handles btnPrevious.Click
' moves to the previous record
TblClientBindingSource.MoveNext()
End Sub
Private Sub btnDisplay_Click(ByVal sender As Object,ByVal e As System.EventArgs)Handles btnDisplay.Click
' displays all clients or
' specific clients for a certain state
Const strPROMPT As String = "Enter one or more " &
"letters.Leave blank to retrieve all records."
Dim strSearch As String
' get user input
strSearch = InputBox(strPROMPT,"Find State").ToUpper
' select the appropriate records
Dim records = ClientDataSet.tblClient
For client.State.ToUpper Like strSearch & "*"
Select
' display the records
TblClientBindingSource.DataSource = records
End Sub