如何用vb语言实现对SQL server 表检测

如何用vb语言实现对SQL server 表检测，如果表不存在则创建表
在SQL server 查询中执行以下脚本可以实现

If not Exists(Select ID From SYSOBJECTS Where ID=OBJECT_ID('table1')) CREATE TABLE [dbo].[table1] (
[name] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[card_id] [varchar] (15) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[money] [varchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,
[number] [varchar] (15) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[money2] [varchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,
[date] [datetime] NOT NULL ,
[LoginName] [varchar] (10) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY]
GO

上述语句如何在VB中实现？ --------------------编程问答-------------------- 写个存储过程。加动态sql，不推荐用前台修理后台。

补充：VB ,  基础类