Visual Basic - ayuda con insentar vb en access

hola muy buenas, tengo un problema kiero insertar unos datos en una tabla de access pero no me permite, me da error. El problema debe estar en el combo, ya qie el resto de tablas se agregan al no tener combo. Por favor contestad lo antes posible a [email protected]. Gracias.

Private Sub Cmd_alta_Click()
If Text_proveedor <> "" And Combo_producto <> "" And Text_dto <> "" Then
conectar
rs.Open "select codpro from provee where codpro='" & Combo_producto & "', con "
If rs.EOF Then
con.Execute "insert into provee values (" & Text_proveedor & ", " & Combo_producto & ", " & Text_dto & ")"
borrarcampos F_provee
Else
MsgBox "existe el proveedor"
End If
cerrar
End If
End Sub

Private Sub Cmd_baja_Click()
If MsgBox("estas seguro", vbYesNo, "atencion") = vbYes Then
conectar
con.Execute "delete from proveedor where codprove=" & Text_proveedor & "", con
cerrar
End If
End Sub

Private Sub Cmd_modificacion_Click()
If MsgBox("estas seguro", vbYesNo, "atencion") = vbYes Then
conectar
con.Execute "update provee set codprove=" & Text_proveedor & ", codpro=" & Combo_producto & ", DtoProvpro=" & Text_dto & ""
cerrar
Unload Me
End If
End Sub

Private Sub Form_Load()
conectar
rs.Open "select codpro from producto", con
While Not rs.EOF
Combo_producto.AddItem rs![codpro]
rs.MoveNext
Wend
cerrar
End Sub