Data in textsbox met movelast()

[astronaut]

Hallo,
Ik gebruik VB2008 Express.
Wat ik wil dat er data uit een veld in een textbox geplaatst wordt.
De data die ik wil is de data van het laatste record uit het veld NAAM.
De recordwijzer staat wel in het laatste record maar de data uit het veld Naam is de data uit het eerste record.
Wat is hier niet goed geprogrammeerd?
Iemand een idee?
Dank

Public Class frmMain
    Private mintKlantID As Integer
    Private mobjBindingSource As New BindingSource

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        Dim strConnectionString As String = My.Settings.KlantenBeheerConnectionString()
        Dim strSql As String = "Select * From Klanten "
        Dim objDataAdapter As New SqlDataAdapter(strSql, strConnectionString)
        Dim objDataset As New DataSet
        objDataAdapter.Fill(objDataset, "Klantentabel")
        mobjBindingSource.DataSource = objDataset.Tables("KlantenTabel")
        dgrKlanten.DataSource = mobjBindingSource

        Dim objConnection As New SqlConnection(My.Settings.KlantenBeheerConnectionString)
        Dim objCommand As New SqlCommand(strSql, objConnection)
        objCommand.Connection.Open()
        Dim objDataReader As SqlDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

        objDataReader.Read()
        mobjBindingSource.MoveLast()
        Naam1.Text = objDataReader("Naam")

    End Sub
  
End Class
[code]