This is the solution.

Private Sub Command45_Click()

Dim db As DAO.Database

Dim rst As DAO.Recordset

Dim varTextData As String

Dim varTextData2 As String

Dim varTextData3 As String

Dim varTextData4 As String

Dim varTextData5 As String

Dim varTextData6 As String

Dim varTextData7 As String

varTextData = Text31

varTextData2 = Combo0

varTextData3 = Combo2

varTextData4 = Text27

varTextData5 = Combo4

varTextData6 = Combo6

varTextData7 = Text25

Set db = CurrentDb

Set rst = db.OpenRecordset("Waste Hauler Number", dbOpenDynaset)

rst.AddNew

rst!WasteHaulerNumber = varTextData

rst!HaulerID = varTextData2

rst!Asset = varTextData3

rst!AssetNumber = varTextData4

rst!Material = varTextData5

rst!Classification = varTextData6

rst!DateYear = varTextData7

rst.Update

rst.Close

db.Close

Me!Combo0 = ""

Me!Combo2 = ""

Me!Text27 = ""

Me!Combo4 = ""

Me!Combo6 = ""

End Sub