.NET (Core and Framework)

RS.Open("select * from purchasebill where entryno like '" & TextEntryNo.Text & "'", CN, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockPessimistic)
        If (RS.EOF And RS.BOF) Then
            RS.AddNew()
            MsgBox(TextEntryNo.Text & "   Is Saved")

        Else
            If RS("EntryNo").Value = TextEntryNo.Text Then
                MsgBox(TextEntryNo.Text & "    User Ia Allready Exist")
                ' RS.Close()
                CmdNew.Focus()
                ' Exit Sub
            End If
        End If
        RS("EntryNo").Value = TextEntryNo.Text
        RS("Entrydate").Value = MaskEntryDate.Text
        RS("BillNo").Value = TextBillNo.Text
        RS("billDate").Value = MaskBillDate.Text
        RS("SupplierName").Value = TextSupplierName.Text
        RS("Billtype").Value = ComboBillType.Text

For i As Integer = 0 To DGVRecord.RowCount - 1
           RS("productname").Value = Me.DGVRecord.Rows(i).Cells("Product").Value
           RS("batchno").Value = Me.DGVRecord.Rows(i).Cells("batchno").Value
           RS("expirydate").Value = Me.DGVRecord.Rows(i).Cells("Expiry").Value
       Next

RS.Update()

You might have to reverse engineer some of the generated code to do this. Offhand, I would create the TLB file, and then use OLEVIEW to view
the IDL.

Then, I would copy and paste the IDL into a new file, and add the
bindable attribute to the idl in the appropriate places. Once that is done,
I would run that IDL file through MIDL, and create a type library. Once you
do that, you should be able to register that type library to create your
CCW's.