WSS- Para la integración de Sharepoint con infopath, utilizamos las listas de documentos, y una plantilla de infopath para la creación de estos.
Si deseamos exportar registros de access a sharepoint, a una lista de documentos, podemos utilizar el siguiente código.

Tendremos que mirar como es el esquema xml de los documentos que crea la plantilla de infopath

Private Sub Comando0_Click()
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim intOption As Integer
Dim Ofile As Object
Dim Promo As String
Dim aux1 As String


Set dbs = CurrentDb()
strSQL = "SELECT * FROM Proveedores "
Set rst = dbs.OpenRecordset(strSQL)


While (Not (rst.EOF))
‘’Campo para crear el directorio
Promo = Replace(rst(1).Value, " ", "")

If Promo <> aux1 Then
MkDir "C:\XML\" & Replace(rst(1).Value, " ", "")
aux1 = Replace(rst(1).Value, " ", "")
End If

Set fs = CreateObject("Scripting.FileSystemObject")

Set Ofile = fs.CreateTextFile("C:\XML\" & Replace(rst (1).Value, " ", "") & "\" & _
Replace(Replace(rst(0).Value, ".", ""), """", "") & ".xml", True)

file = "" ''el archivo XML
Ofile.WriteLine (file)
Ofile.Close

rst.MoveNext
Wend

' Cerrar el conjunto de registros y la base de datos.
rst.Close
dbs.Close



End Sub