如何把附件excelde

不建议你这样写，导致你的文件很快变得很大，可以使用储存地址的方式

实在要加的话，给个参考：

Dim rst As New ADODB.Recordset
        Dim Istm As ADODB.Stream
        rst.Open "SELECT 照片  FROM 身份证 WHERE ID=" & Me.序号, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        Set Istm = New ADODB.Stream
        Dim FileName As String
        FileName = CurrentProject.Path & "\zp.bmp"
        If Not IsNull(FileName) Then
            With Istm
                .Type = adTypeBinary
                .Open
                .LoadFromFile FileName
            End With
        End If
        rst("照片") = Istm.Read
        rst.Update
        rst.Close
        Istm.Close