error vb6, ayuda!

[Leoxz]

Estoy creando un programa en VB6, soy nuevo en este lenguaje, al momento de guardar mi proyecto como .exe

 

me manda el siguiente error

 

No se ha definido el tipo definido por el usuario.

 

Este es el codigo del formulario

 

Private Sub Form_Load()

Adodc1.ConnectionString = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE =" & App.Path & "\bd\invent.mdb"

Adodc1.CursorType = adOpenDynamic

Adodc1.RecordSource = "Inventario"

Adodc1.Refresh

End Sub

 

Private Sub AceptarBot_Click()

ModificarBot.Enabled = True

codrep.Enabled = False

nombrerep.Enabled = False

marca.Enabled = False

ubicacion.Enabled = False

precio.Enabled = False

cantidad.Enabled = False

descripcion.Enabled = False

aceptarbot.Enabled = False

cancelarbot.Enabled = False

salir2.Enabled = True

NuevoBot.Enabled = True

BuscarBot.Enabled = True

Adodc1.Recordset.Update

MsgBox "Realizado con Éxito.", , "Operación Exitosa"

End Sub

 

 

Private Sub BuscarBot_Click()

Me.Hide

End Sub

 

Private Sub cancelarbot_Click()

codrep.Enabled = False

nombrerep.Enabled = False

marca.Enabled = False

ubicacion.Enabled = False

precio.Enabled = False

cantidad.Enabled = False

descripcion.Enabled = False

aceptarbot.Enabled = False

cancelarbot.Enabled = False

salir2.Enabled = True

NuevoBot.Enabled = True

BuscarBot.Enabled = True

Adodc1.Recordset.CancelUpdate

MsgBox "Operacion Cancelada.", , "Operación Cancelada"

End Sub

 

 

 

Private Sub ModificarBot_Click()

MsgBox "Usted ya puede modificar el producto elegido.", , "Modificar Producto"

nombrerep.Enabled = True

marca.Enabled = True

ubicacion.Enabled = True

precio.Enabled = True

cantidad.Enabled = True

descripcion.Enabled = True

aceptarbot.Enabled = True

cancelarbot.Enabled = True

salir2.Enabled = False

NuevoBot.Enabled = False

BuscarBot.Enabled = False

codrep.Enabled = False

End Sub

 

Private Sub NuevoBot_Click()

MsgBox "Usted ya puede ingresar un nuevo producto.", , "Nuevo Producto"

ModificarBot.Enabled = False

codrep.Enabled = True

nombrerep.Enabled = True

marca.Enabled = True

ubicacion.Enabled = True

precio.Enabled = True

cantidad.Enabled = True

descripcion.Enabled = True

aceptarbot.Enabled = True

cancelarbot.Enabled = True

salir2.Enabled = False

NuevoBot.Enabled = False

BuscarBot.Enabled = False

Adodc1.Recordset.AddNew

codrep.SetFocus

End Sub

 

 

Private Sub salir2_Click()

msbTexto = "Está Seguro de Finalizar?"

msbTitu = "Finalizar"

msbOpc = vbOKCancel + vbQuestion + vbDefaultButton1

msbRespuesta = MsgBox(msbTexto, msbOpc, msbTitu)

Select Case msbRespuesta

Case vbOK

End

Case vbCancel

End Select

End Sub

 

Si me pudieran ayudar porfavor, se los agradecería

 

saludos.

[Th3_K4T]

http://www.forosdelweb.com/f69/no-ha-defin...usuario-281245/

[Leoxz]

Muchas Gracias, Lo pude solucionar pero ahora tengo un "error"

 

quiero que el codigo del form3, pase al form2, brindando asi los otros datos del producto.

 

Codigo Form2:

 

Private Sub Form_Load()

Adodc1.ConnectionString = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE =" & App.Path & "\bd\invent.mdb"

Adodc1.CursorType = adOpenDynamic

Adodc1.RecordSource = "Inventario"

Adodc1.Refresh

Adodc1.Recordset.MoveFirst

If COD <> "" Then

While Not (Adodc1.Recordset.EOF = True)

If UCase(COD) = Adodc1.Recordset(0) Then

Exit Sub

End If

Adodc1.Recordset.MoveNext

Wend

Adodc1.Recordset.MoveFirst

End If

End Sub

 

Private Sub AceptarBot_Click()

ModificarBot.Enabled = True

codrep.Enabled = False

nombrerep.Enabled = False

marca.Enabled = False

ubicacion.Enabled = False

precio.Enabled = False

cantidad.Enabled = False

descripcion.Enabled = False

aceptarbot.Enabled = False

cancelarbot.Enabled = False

salir2.Enabled = True

NuevoBot.Enabled = True

BuscarBot.Enabled = True

Adodc1.Recordset.Update

MsgBox "Realizado con Éxito.", , "Operación Exitosa"

End Sub

 

 

Private Sub BuscarBot_Click()

Form3.Show

Unload Me

End Sub

 

Private Sub cancelarbot_Click()

codrep.Enabled = False

nombrerep.Enabled = False

marca.Enabled = False

ubicacion.Enabled = False

precio.Enabled = False

cantidad.Enabled = False

descripcion.Enabled = False

aceptarbot.Enabled = False

cancelarbot.Enabled = False

salir2.Enabled = True

NuevoBot.Enabled = True

BuscarBot.Enabled = True

Adodc1.Recordset.CancelUpdate

MsgBox "Operacion Cancelada.", , "Operación Cancelada"

End Sub

 

Private Sub ModificarBot_Click()

MsgBox "Usted ya puede modificar el producto elegido.", , "Modificar Producto"

nombrerep.Enabled = True

marca.Enabled = True

ubicacion.Enabled = True

precio.Enabled = True

cantidad.Enabled = True

descripcion.Enabled = True

aceptarbot.Enabled = True

cancelarbot.Enabled = True

salir2.Enabled = False

NuevoBot.Enabled = False

BuscarBot.Enabled = False

codrep.Enabled = False

End Sub

 

Private Sub NuevoBot_Click()

MsgBox "Usted ya puede ingresar un nuevo producto.", , "Nuevo Producto"

ModificarBot.Enabled = False

codrep.Enabled = True

nombrerep.Enabled = True

marca.Enabled = True

ubicacion.Enabled = True

precio.Enabled = True

cantidad.Enabled = True

descripcion.Enabled = True

aceptarbot.Enabled = True

cancelarbot.Enabled = True

salir2.Enabled = False

NuevoBot.Enabled = False

BuscarBot.Enabled = False

Adodc1.Recordset.AddNew

codrep.SetFocus

End Sub

 

Private Sub salir2_Click()

msbTexto = "Está Seguro de Finalizar?"

msbTitu = "Finalizar"

msbOpc = vbOKCancel + vbQuestion + vbDefaultButton1

msbRespuesta = MsgBox(msbTexto, msbOpc, msbTitu)

Select Case msbRespuesta

Case vbOK 'Aceptar

End

Case vbCancel

End Select

 

End Sub

 

Codigo Form3

 

Private Sub DataGrid1_Click()

Row = Me.DataGrid1.Row

COD = DataGrid1.Columns(0).Value

End Sub

 

Private Sub Form_Load()

Adodc1.ConnectionString = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;" & "DATA SOURCE =" & App.Path & "\bd\invent.mdb"

Adodc1.CursorType = adOpenDynamic

Adodc1.RecordSource = "Inventario"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1.Recordset

End Sub

 

Private Sub regresar_Click()

Form2.Show

Unload Me

End Sub

 

Modulo

 

Global COD as String

 

Ahi lo que hago es elegir o marcar una fila, y que me de la columna 0 (codigo), y cuando regrese al form2, proporcione los datos del producto que elegi en la form3.

 

Espero que se haya entendido xd

 

 

Saludos y gracias por la respuesta anterior