Problema con EXECUTE READER

[Monimo]

hOLA QUE TAL, Este es un problema muy básico supongo, pero ojala alguien pueda ayudarme, como ven declaro bien mis variales cnn1 y myCommand2 para poder ejecutar mi cnn 1 con metodos de un datareader, pero el problema esque justo en esta línea: cnn1 = myCommand2.ExecuteReader me sale un error que dice: "Additional information: System error." he leído que se debe a quizá un error en el connection string pero utilizo asi tal cual ese connection String en mi método de insertar y ahi si funciona perfecto, alguna recomendación. De antemano Gracias


Dim ConString As String = "Data Source=XXX.XXX.XX.XXXX; initial catalog=XXX ; " & _
"integrated security=XXX; persist security info=XXX;"

Dim myCommand2 As New Data.SqlClient.SqlCommand
Dim cnn1 As Data.SqlClient.SqlDataReader
Dim odbCnn As New Data.SqlClient.SqlConnection(ConString)
Dim results As String

Sub openert()
odbCnn.Open()
End Sub


Function consulta(ByVal user As String, ByVal busca As String)
Dim consultaCmd As String
'consultar para obtener nombre completo
consultaCmd = "select " & busca & " from usuarios_viajes where Usuario_red=" & user & ";"

Try
myCommand2 = New Data.SqlClient.SqlCommand(consultaCmd, odbCnn)
Catch ex As SqlClient.SqlException
End Try


cnn1 = myCommand2.ExecuteReader


Do While cnn1.Read
results = cnn1.GetString(0)
Loop

'Mostrar resultados.
Return results

End Function