All right....my code was correct above.....I saw the record being added to the related table but it would not come across when I check-in the data in ArcMap...I first thought it was the OBJECT ID that needed to be added but that was not the case.I then came across some older forum entries and saw that they added the AXF_STATUS, and the AXF_TIMESTAMPThese two fields are what ArcMap check-in relys on to determine whats new in the axf file. If they are blank then they are skipped from the import process.....You can also check out this older entryhttp://forums.esri.com/Thread.asp?c=34&f=2465&t=298570&mc=2#msgid932792This is my final code:Notice: AXF_STATUS is set to 1...this is for a new file (there are other numbers that you can set to delete the file etc)AXF_TIMESTAMP is set to grab the system clock time ( getDate() )HOPE THIS HELPS.....ANY QUESTIONS FEEL FREE TO ASK.......
Sub SaveButton
Dim objRS, objSelLayer, objEFPageOneControls3, objEditForm3
Set objSelLayer = Map.SelectionLayer
Set objRS = objSelLayer.Records
objRS.Bookmark = Map.SelectionBookmark
Set objEditForm3 = application.map.layers("Retaining_Walls").forms("EDITFORM")
Set objEFPageOneControls3 = objEditForm3.Pages("page1").Controls
Dim varcbo_User, vartxtUniqueID, varLow, varHigh, varAvg, varLength, varArea, varMaterial, varCondition, varDate
varcbo_User = objEFPageOneControls3("cbo_User").Value
vartxtUniqueID = objEFPageOneControls3("txtUniqueID").Value
varLow = objEFPageOneControls3("Edit3").Value
varHigh = objEFPageOneControls3("Edit4").Value
varAvg = objEFPageOneControls3("Edit1").Value
varLength = objEFPageOneControls3("Edit2").Value
varArea = objEFPageOneControls3("Edit5").Value
varMaterial = objEFPageOneControls3("Field2").Value
varCondition = objEFPageOneControls3("Field1").Value
varDate = objEFPageOneControls3("Date1").Value
Dim sSQL
sSQL = "INSERT INTO RETAININGWALL_HISTORICAL (UNIQUEID, MATERIAL, DIM_LOW, DIM_HIGH, DIM_AVE, LENGTH, AREA, CONDITION, INSPECT_DATE, AXF_STATUS, AXF_TIMESTAMP, INSPECT_BY) VALUES ('" & vartxtUniqueID & "', '" & varMaterial & "', '" & varLow & "', '" & varHigh & "', '" & varAvg & "', '" & varLength & "', '" & varArea & "', '" & varCondition & "', '" & varDate & "', 1, getDate(), '" & varcbo_User & "')"
Dim strFileName2
strFileName2 = varAXFFileName_2
'++ open the selected AXF file
Dim pDS
Set pDS = OpenAXF(strFileName2)
If (pDS Is Nothing) Then
Console.Print "Open DataSource failed"
Exit Sub
End If
Dim iCount
iCount = pDS.Execute(sSQL)
pDS.Close()
Msgbox "Done"
End Sub