Error : Run-time error '91'

Object variable or With block variable not set
Este es el error que me envia y me la marca en la linea en negritas:
Private_Sub Command25_Click()
Data1.Recordset.AddNew
Data1.Recordset!nombre = Text1.Text
Data1.Recordset!.domicilio = Text2.Text
Data1.Recordset!.telefono = Text3.text
Data1.Recordset!subt = Text4.text
Data1.Recordset!nomerodqpzz = Text5.txt
Data1.Recordset!total = Text6.text
Data1.Recordset.UpData
End Sub
Espero me puedan orientar para corregirlo.
Saludos