不可以的,必须这样写,如
If b2 = "字符" Then
.AddColumn(a2,ADOXType.String, c2)
ElseIf b2 = "整数" Then
.AddColumn(a2,ADOXType.Integer, c2)
End If