Пожалуйста, добавьте структуру tblcosting. Скорее всего, есть нарушение его свойств. Вы можете проверить сообщение об ошибке, создав тот же запрос и выполнив его.
Private Sub cmdsave_Click()
Dim strsql as String
strsql= "Insert into tblcosting(Reqsht, Cost) "
strsql = strsql & " Values(" & Me.txtreqsht & ", " & Me.txtcost & ")"
Debug.Print strsql
End Sub
Скопируйте запрос из непосредственного окна и вставьте его в новый запрос (выберите представление SQl). Затем запустите запрос, чтобы проверить причину проблемы.