Dim dbisam As Connection
Dim constr As String

Sub opensam()
DBEngine.DefaultType = dbUseODBC
constr = "ODBC;Driver={DBISAM Database System};CatalogName=" & App.
Path
Set dbisam = OpenConnection("", dbDriverNoPrompt, False, constr)
End Sub

Private Sub cmdexit_Click()
Set dbisam = Nothing
Unload Me
End Sub

Private Sub cmdinsert_Click()
On Error Resume Next
Dim rec As Recordset
Set rec = dbisam.OpenRecordset("emp", dbOpenDynamic, dbExecDirect, 
dbOptimisticValue)
With rec
.AddNew
!Name = Text1.Text
!Desc = Text2.Text
.Update
End With
MsgBox "record inserted"
rec.Close
End Sub

Private Sub Form_Load()
opensam
End Sub

---

 Comments

---

ODBC reference material is a bit fuzzy on the cause of this problem, namely that the length of the incoming BLOB parameter data would be passed in via the indicator function parameter and not the octet length function parameter, which is what VB was doing.

---

 Resolution

---

Fixed Problem on 8/25/2003 in version 3.25 build 1