con uno stringbuilder, per ora

codice:
            Dim SB As New System.Text.StringBuilder
            SB.Append("SELECT ....")
            SB.Append(" FROM..")
            etc.
            Dim Query As String = SB.ToString