Ayuda con una funcion

[vicentecamesella]

Ok aver si me explico mejor

esto es lo que tengo en un modulo

Sub insertar(tabla As String, Campos As String, VALORES As String)

cn.Execute " INSERT INTO `" & tabla & "` (" & Campos & ") VALUES " & _
"(" & VALORES & ")"

End Sub

en el formulario hago esto

'Le asigno los campos a trabajar
For i = 0 To rc.Fields.Count - 1 'Cambiar valor hasta
If i < rc.Fields.Count - 1 Then 'Opcion segun campo
Campos = Campos & rc.Fields(i).Name & "," 'Diferente al ultimo campo
Else 'En caso contrario
Campos = Campos & rc.Fields(i).Name 'Ultimo campo
End If 'cierro condiciones
Next 'siguiente bloque

'Le asigno los valores para el insert into
For i = 0 To rc.Fields.Count - 1 'Cambiar valor hasta
If i < rc.Fields.Count - 1 Then 'Cambiar valor hasta
VALORES = VALORES & "'" & Text1(i) & "'," 'Diferente Ultimo campo
Else 'En caso contrario
VALORES = VALORES & "'" & Text1(i) & "'" 'Ultimo campo
End If 'cierro condiciones
Next 'Siguiente Bloque

en el boton de grabar llamo call insertar ("tabla",campos,valores)

Lo hace excelente lo que quiero es poder manejar otros controles que no sean solo texta seria identificandolo con el nombre del campo en la base de datos alguien me echa una mano please y gracias de antemano