Prova così:
Dim myconnect As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=nomeserver; Database=database; integrated security=true")
Prova così:
Dim myconnect As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=nomeserver; Database=database; integrated security=true")