ti sei perso l'inzio della stringa di connessione:
Dim sServerPath As String = "\\mioserver\"
Dim conn As String = "server=" + sServerPath + "SQLExpress;AttachDbFilename=" + sServerPath + "DATABASE\db.mdf;Database=db; Trusted_Connection=Yes;"
Dim cn As New SqlClient.SqlConnection(conn)
