Access VBA

Hi

I am trying to take one field from a form and populate a different table with it. I think the error is coming from the set rsttable but I can't see what I've done wrong. Can you help me???

Dim dbData As DAO.Database
Dim rstTable As DAO.Recordset
Dim strsql As String

Set dbData = CurrentDb()
Set rstTable = dbData.OpenRecordset([Tbl Date])

strsql = "INSERT INTO Tbl Date ([sunhsno]) VALUES (" & Me.SUNHSNo.Value & ")"
DoCmd.RunSQL strsql