怎样在VB里调用createtable.sql在sql2000里创建数据库？

只要安装好sql2000，用osql建新库、建表、视图、索引等等，都是没有问题的。给你一个例子，你可以试一试：
Dim rc As Integer
Dim str As String
str = "osql -i d:\wjw.sql -U sa -S 192.168.0.1 -P"
rc = Shell(str)将以下代码用记事本以wjw.sql为名存在d:\ （执行后创建一个数据库wjw，一个用户表wujianwei）IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'wjw')
DROP DATABASE [wjw]
GOCREATE DATABASE [wjw]  ON (NAME = N'wjw_Data', FILENAME = N'D:\wjw_Data.MDF' , SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N'wjw_Log', FILENAME = N'D:\wjw_Log.LDF' , SIZE = 1, FILEGROWTH = 10%)
 COLLATE Chinese_PRC_CI_AS
GOexec sp_dboption N'wjw', N'autoclose', N'true'
GOexec sp_dboption N'wjw', N'bulkcopy', N'false'
GOexec sp_dboption N'wjw', N'trunc. log', N'true'
GOexec sp_dboption N'wjw', N'torn page detection', N'true'
GOexec sp_dboption N'wjw', N'read only', N'false'
GOexec sp_dboption N'wjw', N'dbo use', N'false'
GOexec sp_dboption N'wjw', N'single', N'false'
GOexec sp_dboption N'wjw', N'autoshrink', N'true'
GOexec sp_dboption N'wjw', N'ANSI null default', N'false'
GOexec sp_dboption N'wjw', N'recursive triggers', N'false'
GOexec sp_dboption N'wjw', N'ANSI nulls', N'false'
GOexec sp_dboption N'wjw', N'concat null yields null', N'false'
GOexec sp_dboption N'wjw', N'cursor close on commit', N'false'
GOexec sp_dboption N'wjw', N'default to local cursor', N'false'
GOexec sp_dboption N'wjw', N'quoted identifier', N'false'
GOexec sp_dboption N'wjw', N'ANSI warnings', N'false'
GOexec sp_dboption N'wjw', N'auto create statistics', N'true'
GOexec sp_dboption N'wjw', N'auto update statistics', N'true'
GOif( ( (@@microsoftversion / power(2, 24) = 8) and (@@microsoftversion & 0xffff >= 724) ) or ( (@@microsoftversion / power(2, 24) = 7) and (@@microsoftversion & 0xffff >= 1082) ) )
exec sp_dboption N'wjw', N'db chaining', N'false'
GOuse [wjw]
GOif exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[wujianwei]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[wujianwei]
GOCREATE TABLE [dbo].[wujianwei] (
[a] [datetime] NULL ,
[b] [decimal](18, 0) NULL ,
[c] [float] NULL ,
[d] [image] NULL ,
[e] [int] NULL ,
[f] [nchar] (10) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO CREATE  CLUSTERED  INDEX [cxjjj] ON [dbo].[wujianwei]([a], [b], [c], [e], [f]) ON [PRIMARY]
GO