Error Message object required

Hi
I am getting an error message object required. i just cant see what is wrong. i am trying to retrieve information from database.

Dim rsdata As ADODB.Recordset
Dim sConnected As String
Dim sSQL As String

sConnected = "Provider=Microsoft.ACE.OLEDB.12.0;" & " Data Source=C:\Users\c0861205\Documents\Docs\Access_VBA\Adding.accdb;"
sSQL = "Select From_Date,[To_Date]+''+[NT]+''+Provincial from tblAdding"
Set rsdata = New ADODB.Recordset
rsdata.Open sSQL, sConnected, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not rsdata.EOF Then
Inform.Range("A2").CopyFromRecordset rsdata
rsdata.Close
With Inform.Range("A1:B1")
.Value = Array("From_Date", "To_Date", "NT", "Provincial")
.Font.Bold = True
End With
Inform.UsedRange.EntireColumn.AutoFit
Else
rsdata.Close
MsgBox "Error: No records retured.", vbCritical
End If
Set rsdata = Nothing