Private Sub Form_Activate()
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
List1.AddItem (Data1.Recordset![mallar])
Data1.Recordset.MoveNext
Loop
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\sabit.mdb"
Data1.RecordSource = "tbl_stok"
End Sub