Try:
Using con As New SqlConnection(strConnect)
con.Open()
Using com As New SqlCommand("SELECT dbo.MyFunctionName()", con)
Using reader As SqlDataReader = com.ExecuteReader()
While reader.Read()
Dim i As Integer = CInt(reader(0))
Dim b As Boolean = i = 0
...
End While
End Using
End Using
End Using