you cannot just pass this code:
IF Exists(select * from sysobjects where name='qryWebContacts' and xtype='V')
DROP VIEW [dbo].[qryWebContacts]
Go
CREATE VIEW [dbo].[qryWebContacts]
AS
SELECT strLogin AS LoginEmail, strPassword AS LoginPassword, ContactPK, CompanyFK
FROM dbo.Contacts
WHERE (NOT (strPassword IS NULL))
you have to make it into a stored procedure and then execute that stored procedure throught VB code