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