Visual Basic - NO AGREGA REGISTO

Hola al foro

Agradezco a las personas q me puedan ayudar, soy novato y apenas empiezo en esto de la programacion, mi problema es q deseo que deacuerdo a lo q tenga una caja de texto, abra una tabla especifica de una base de datos en comun, tengo un codigo pero no resulta, me saca un error donde menciona q no esta definido el objeto... agradecere si me sacan de mi duda. dejo el codigoq tengo...

CODIGO EN CAJA DE TEXTO
Private Sub Txtaparato_Change()
Data2.DatabaseName = "bdc01.mdb"
If Txtaparato = "AIRE ACONDICIONADO" Then
Txtaparato.Text = "AIRE ACONDICIONADO"
Data2.RecordSource = "AIRE"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM AIRE;"
ElseIf Txtaparato = "ESTUFA" Then
Txtaparato.Text = "ESTUFA"
Data2.RecordSource = "ESTU"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM ESTUFA"
ElseIf Txtaparato = "LAVADORA" Then
Txtaparato.Text = "LAVADORA"
Data2.RecordSource = "LAVA"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM LAVA"
ElseIf Txtaparato = "MICRO ONDAS" Then
Txtaparato.Text = "MICRO ONDAS"
Data2.RecordSource = "MICRO"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM MICRO"
ElseIf Txtaparato = "REFRIGERADOR" Then
Txtaparato.Text = "REFRIGERADOR"
Data2.RecordSource = "REFRI"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM REFRI"
Else
Txtaparato.Text = "SECADORA"
Data2.RecordSource = "SECA"
Data2.RecordSource = "select EQUIPO,MARCA,MODELO FROM SECA"
End If
End Sub

CODIGO EN BOTON
Private Sub Cmdnuevoz_Click()
Data2.recordset.addnew
Data2.Recordset!Equipo = Txtaparato.Text
Data2.Recordset!marca = Txtmarca.Text
Data2.Recordset!MODELO = Txtmodelo.Text
If MsgBox("¿Estan los datos correctos?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
Data2.Recordset.Update
Frmequipos.Data2.Refresh
Txtaparato.Text = ""
Txtmarca.Text = ""
Txtmodelo.Text = ""
Txtaparato.SetFocus
Else
Cancel = True
Txtaparato.SetFocus
End If
End Sub

Hola!!!!

Espero que te pueda ayudar.

Por lo que me imagino Txtaparato es la caja de texto y cuando preguntas pones Txtaparato="REFRIGERADOR" y tienes que poner Txtaparato.text="REFRIGERADOR", para asi preguntar si el texto que esta en esa caja de texto es igual a REFRIGERADOR.

Para hacer el select yo lo hago de otra manera, pero supongo que estara bien tambien tu forma.

Tu prueba si es por eso y si no es, pues me dices por el foro.

Besos!!!!!

Yo pense en eso mismo Goyi, pero leyendo uno de estos dias en el foro me entere que si no le colocas el campo al cual vas a acceder en un componente grafico (boton, label, etc) el asume la propiedad que tiene por defecto, y el defecto para los text es la propiedad text. Creo que eso aplica para todas las versiones de Visual Basic, pero esperemos a ver que paso con el amigo

Hola goyi y Juan...

Agradezco su atencion pero creo q no me explique bien, el problema q tengo es q no agrega el registro a la base de datos, el problema q me presenta es el comando addnew. Ya q deseo ir cargando cada dato a una tabla diferente de la base de datos, ojala puedan ayudarme!