Try something like this:
Using con As New SqlConnection(strConnect)
con.Open()
Using cmd As New SqlCommand("SELECT myColumn1, MyColumn2 FROM myTable WHERE ID=@ID", con)
cmd.Parameters.AddWithValue("@ID", studentId)
Using reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
Dim col1 As Integer = CInt(reader("myColumn1"))
Dim col2 As String = DirectCast(reader("myColumn2"), String)
End While
End Using
End Using
End Using