一： 利用错误捕获功能判断
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、小程序制作、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了安源免费建站欢迎大家使用！
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
1、没有看见你定义AAADataSet1。
2、OleDb.OleDbDataAdapter（selectCommand, connection)
后面不能把dataset放上去，放的是connectionString。请检查。
仅凭这一句很难判断错误的。主要提几个建议吧：
1）字符串的连接最好用符号，不要用+号。如果你字段里面有数字的话，用+号就会导致错误。不是说+号不可以，而是用更安全。
2）可以在字段名称前后加[]。根据我的经验，有时不加就有问题，加了就没问题了。
3）注意数据库表中字段的数据类型和查询语句中的匹配。我发现有[购置日期]字段，不知你在数据库表中定义的是日期类型还是字符类型，如果不一致也可能会导致问题。