Şuan kodları inceliyorum chopper07 kardeşim anlatım çok güzel olmuş çok teşekkür ederim inceledikten sonra geri bildirim yapacağım teşekkürler.

form'a ait kaynak kodlar:

Private Sub Form_Load()



Dim a As New ADODB.Recordset



a.Open "select * from veri", "dsn=bkd", adOpenStatic, adLockOptimistic



With MSFlexGrid1



.Cols = 2



.ColWidth(0) = 2000

.ColWidth(1) = 2000



Width = 4000



.TextMatrix(0, 0) = "Malın Cinsi"

.TextMatrix(0, 1) = "Barkod"



.Rows = a.RecordCount + 1



For t = 1 To a.RecordCount



.TextMatrix(t, 0) = a("Malin_Cinsi")

.TextMatrix(t, 1) = a("Barkod_No")



a.MoveNext



Next



End With





End Sub



Private Sub MSFlexGrid1_Click()



StrokeScribe1.Alphabet = CODE128



StrokeScribe1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)



End Sub

Bilen üstatlara sesleniyorum bu konuya bi açıklık getirirsek çok sevinirim. sadece ben değil hem site sakinleri faydalanır hem de internet'te böyle bir konunun cevabı yok her şey parça parça bu örneği tam çalışır hale getirirsek çok yarayışlı olacağına inanıyorum.teşekkürler.