请VB高手帮我看看,为什么这里会出错呢?

Public Sub CreateDB(ByVal DBFileStr As String)
Dim cnStr As String '# 数据库联接串
Dim sSql As String '# SQL语句变量

Dim f As New FileSystemObject
Dim cat As New ADOX.Catalog
Dim i As Integer
Dim f1
Set cn = New ADODB.Connection

On Error GoTo ERR
If f.FileExists(App.Path & "\songbase.mdb") = True Then

Kill App.Path & "\songbase.mdb"
End If

cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & DBFileStr & ".mdb;Jet OLEDB:Database Password="
cat.Create cnStr
cn.Open cnStr

sSql = "CREATE TABLE income" & _
"(日期 VARCHAR(255) NOT NULL IDENTITY PRIMARY KEY," & _
"时间 VARCHAR(255) NULL," & _
"收入原因 VARCHAR(255) NULL," & _
"收入金额 VARCHAR(255) NULL," & _
"支出原因 VARCHAR(255) NULL," & _
"支出金额 VARCHAR(255) NULL," & _

"还款 VARCHAR(255) NULL " & _
这行里NULL后面少了个逗号

数据库里的字段类型不一样吧?把VARCHAR改改看看

楼上是高手 看的真仔细
我每看出什么问题...

请VB高手帮我看看,为什么这里会出错呢? 请高手进来帮我看看,这里先谢了!!! 请VB高手帮我看看这段代码 vb高手来帮我看看 vb高手请进，帮我看看 请帮我看看这个VB程序!!! 为什么安装VB失败？高手请帮我解决，谢谢！！！ 请C++高手帮我看看这里出了什么问题 请VB高手帮我看看分析解释这段代码:谢谢 请高手帮我看看