vbcon.Open()
            Dim str As String = ""
           
            str = "SELECT * FROM mytablename"


Dim dbCommand As New SqlCommand(str, vbcon)
Dim dbReader = dbCommand.ExecuteReader


 While dbReader.Read()
                textboxtext = dbReader.Item("myvarname")
 End While
            dbReader.Close()

vbcon.Open()
            Dim str As String = ""
           
            str = "SELECT * FROM mytablename"


Dim dbCommand As New SqlCommand(str, vbcon)
Dim dbReader = dbCommand.ExecuteReader


 While dbReader.Read()
                textboxtext = dbReader.Item("myvarname")
 End While
            dbReader.Close()