Function Copy_Row_From_Table()
Dim rso As New ADODB.Recordset
Dim rsn As New ADODB.Recordset
    On Error Resume Next
    Err.Clear
    flag = False
    cnopen
    Sqlstr = "select * from tblQuotation where ID = 79"
    If rso.State = 0 Then rso.Open Sqlstr, cn, adOpenKeyset ' To Fetch Data from Access
    If Err.Number <> 0 Then
        MsgBox Err.Description
        rso.Close
        GoTo endfunction
    End If
    Sqlstr = "tblQuotationTest"
    If rsn.State = 0 Then rsn.Open Sqlstr, cn, adOpenKeyset, adLockOptimistic, adCmdTable ' For Data Entry in Access
    If Err.Number <> 0 Then
        MsgBox Err.Description
        rsn.Close
        GoTo endfunction
    End If

    With rsn
        .AddNew
        rso.MoveFirst
        For i = 0 To rsn.Fields.Count - 1
           fieldname = rso.Fields(i).Name
           rsn.Fields(fieldname) = rso.Fields(fieldname)
            If Err.Number <> 0 Then
                Debug.Print fieldname & " " & "Not Found in destination table"
                flag = True
                Err.Clear
            End If
        Next
        If flag = True Then
            MsgBox "Transaction not completed because on mismatch Field Name in destination Table, Kindly Refer Immediate Window", vbExclamation, EMC
        Else
            .Update
        End If
        .Close
    End With
endfunction:
cnclose
End Function