Question

VB6.0用代码往access中增加字段，总报错，求专家

先看下代码,作用将text2中的字符做为access中新增加的字段
Private Sub Command5_Click()
Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim strsql As String
cnn.CursorLocation = adUseClient
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword
'strsql = "ALTER TABLE 检验项目设置 ADD " & Text2.Text '& " Boolean"
'strsql = "alter table 检验项目设置 add column " & Text2.Text & " " & "Boolean"
strsql = "ALTER TABLE 检验项目设置 ADD column " & Text2.Text '& " " & "Boolean"

If Text2.Text = "" Then
MsgBox "请输入检验项目!", , "系统提示"
Else
rss.Open strsql, cnn, adOpenKeyset, adLockOptimistic
rss.Update
rss.Close
Text1.Text = ""
Adodc1.Refresh
End If

End Sub
求大神诊断

Answer 1

添加字段的语句为：
ALTER TABLE 数据表名 ADD 字段名 字段类型

而 是/否 的字段类型，应该用 YesNo来表示，使用ADO对象，只需要三行命令：
Dim cnn As New ADODB.Connection

cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword

cnn.Execute "ALTER TABLE 检验项目设置 ADD “ & Text2.Text & " YesNo"

最后一句是使用ADO的Connection对象的Execute方法，执行SQL的命令。