CREATE TABLE Users(
ID int IDENTITY(1,1) NOT NULL PRIMARY KEY,
NAME nvarchar(50) NULL,
)
INSERT INTO [Users] VALUES ('ABC')
INSERT INTO [Users] VALUES ('DEF')
INSERT INTO [Users] VALUES ('GHI')
INSERT INTO [Users] VALUES ('JKL')
Protected Sub btnshow_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnshow.Click
Dim cn As SqlConnection
vd = New SqlConnection("YOUR CONNECTION STRING")
If cn.State = ConnectionState.Closed Then
cn.Open()
End If
Dim da As SqlDataAdapter = New SqlDataAdapter()
Dim ds As DataSet = New DataSet()
Dim query As String = "SELECT * FROM [User]"
da.SelectCommand = New SqlCommand(query, cn)
da.SelectCommand.ExecuteScalar()
ds.Clear()
da.Fill(ds)
txtID.Text = ds.Tables(0).Rows(0)(0).ToString()
txtName.Text = ds.Tables(0).Rows(0)(1).ToString()
cn.Close()
End Sub