怎么在vb中用纯VB语句来判断SQL数据库的存在？又怎么建立一个SQL数据库呢？

这个是SQL语句的问题，

Private Sub Form_Load()
Dim myDB As DAO.Database
Set myDB = DAO.Workspaces(0).CreateDatabase("d:\mydb.mdb", dbLangGeneral)
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close
End Sub

不行啊 。

你没有引用microsoft dao 3.51 object library