Benim projeye veri tabanı eklemem lasım cunku listbox bilgileri kaydediorum ama programı kapatıp acınca bilgiler siliniyor lutfen coookacil


Private Sub Command1_Click()
List1.AddItem Text1.Text

List2.AddItem Text2.Text

List3.AddItem Text3.Text

List4.AddItem Text4.Text

List5.AddItem Text5.Text

List6.AddItem Text6.Text

End Sub



Private Sub Command2_Click()
Print
MsgBox "Secili olan kayıtı siliyorsunuz"
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
End If
If List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
End If
If List3.ListIndex >= 0 Then
List3.RemoveItem List3.ListIndex
End If
If List4.ListIndex >= 0 Then
List4.RemoveItem List4.ListIndex
End If
If List5.ListIndex >= 0 Then
List5.RemoveItem List5.ListIndex
End If
If List6.ListIndex >= 0 Then
List6.RemoveItem List6.ListIndex
End If


End Sub





Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""


End Sub

Private Sub Command4_Click()
Print
MsgBox "Gule Gule"
End
End Sub

Private Sub Skin1_SkinEvent(ByVal Source As ACTIVESKINLibCtl.ISkinObject, ByVal EventName As String)

End Sub

Private Sub Text6_Click()
Text6 = Val(Text4) - Val(Text5)
End Sub


kodlar bu
__________________