主题：怪，代码没有错呀，怎么又跳出一个出错的界面

Dim shensi As new SQLCommand
Dim yxb As new SQLCommand
Dim shensidata  As datatable
Dim yxbdata As datatable
        With shensi
            .C
            .CommandText = "select DISTINCT 省市 from {行政区域}"
            shensidata = .ExecuteReader
        End With
With yxb
 .C
 .CommandText = "select distinct 营销部 from {营销部} "
 yxbdata = .ExecuteReader
End With
Tables("营销部").Cols("市场片区_省市").ComboList = shensidata.GetComboListString("省市")
Tables("客户档案").Cols("所属_省市").ComboList = shensidata.GetComboListString("省市")
Tables("客户档案").Cols("所属_营销部").ComboList = yxbdata.GetComboListString("营销部")