在AddNew时程序无响应,open我想应该是没错的,不知道是这几行中的哪里会引起无响应?
    rstMain.Open strSQL, con, adOpenStatic, adLockOptimistic
    If rstMain.EOF And rstMain.BOF Then
        rstMain.AddNew
    End If