Hvordan kalder man felter fra sql-udtræk

Jeg skal have tildelt nogle labels .text fra et sql-udtræk, men hvordan får jeg det til at virke. Jeg har nedenstående, men det vil ikke virke. Det fejler i linien markeret med **


Dim StrSQL as string = "select * from tekst where tekst_id = '30.0.0.0.0.0.0.0';"
Dim strConnection as string = "user id=bruger;password=shh;database=nyehs_prod;server=SQL1;Connect Timeout=30"
Dim objConnection as New SqlConnection(strConnection)

Dim objCommand as new SqlCommand(strSQL, objConnection)
objConnection.Open()
**Dim objReader as objCommand.ExecuteReader()

tekst.Text = objReader[0].ToString() ' feltet tekst fra sql-udtrækket
titel.Text = objReader[1].ToString() ' feltet titel fra sql-udtrækket