você não pode apenas passar este código:
SE existe (selecionar * dos sysobjects onde name='qryWebContacts e xtype='V')
DEIXAR CAIR A VISTA [dbo]. [qryWebContacts]
Ir
CRIAR A VISTA [dbo]. [qryWebContacts]
COMO
SELECIONAR o strLogin COMO LoginEmail, strPassword COMO LoginPassword, ContactPK, CompanyFK
Do dbo. Contatos
ONDE (NÃO (o strPassword É NULO))
você tem que fazê-lo em um procedimento armazenado e então executar esse procedimento armazenado durante todo o código de VB