We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.CursorType = adOpenStatic With rs .ActiveConnection = cn Dim sql As String .Open "exec sproc " 'sql Sheet4.Range("A" & CStr(FIRST_ROW)).CopyFromRecordset rs .MoveLast recCnt = rs.RecordCount ' MsgBox "Rec Cnt " + CStr(rs.RecordCount) .Close End With cn.Close Set rs = Nothing Set cn = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.