"Pocos parametros. Se esperaba 1.

[georgieatlg]

Buen dia, estoy trabajando con un documento que circula por internet que se llama "Como crear un sistema de inventarios con Visual Basic" pero al insertar el siguiente codigo:

Private Sub Command1AGREGARPRODUCTO_Click()
On Error GoTo Err_command1agregarproducto_Click
Me.Data1.Refresh
Me.Data2.RecordSource = "select max(PARTNUMBER) as productos from productos"
Me.Data2.Refresh
Me.Data1.Recordset.AddNew
Me.MSFlexGrid1.Row = 0
If IsNull(Data2.Recordset!PRODUCTOS) Then
Me.Text1 = 1
Me.Text1.Enabled = False
Me.Text2.SetFocus
Else
Me.Text1 = Data2.Recordset!PRODUCTOS + 1
Me.Text1.Enabled = False
Me.Text2.SetFocus
End If
Exit_command1agregarproducto_Click:
Exit Sub
Err_command1agregarproducto_Click:
MsgBox "Err.Description"
Resume Exit_command1agregarproducto_Click
End Sub


Me arroja el error "Error 3061 en tiempo de ejecucion:"
Pocos parametros. Se esperaba 1.

Alguien me podria dar una pista de que es lo que esta mal en el codigo?

Gracias de antemano!!