Valentine’s Day or Saint Valentine’s Day is a holiday celebrated on February 14 by many people throughout the world. In the English-speaking countries, it is the traditional day on which lovers express their love for each other by sending Valentine’s cards, presenting flowers, or offering confectionery. The holiday is named after two among the numerous Early Christian martyrs named Valentine. The day became associated with romantic love in the circle of Geoffrey Chaucer in the High Middle Ages, when the tradition of courtly love flourished.

The day is most closely associated with the mutual exchange of love notes in the form of “valentines”. Modern Valentine symbols include the heart-shaped outline, doves, and the figure of the winged Cupid. Since the 19th century, handwritten notes have largely given way to mass-produced greeting cards.[1] The sending of Valentines was a fashion in nineteenth-century Great Britain, and, in 1847, Esther Howland developed a successful business in her Worcester, Massachusetts home with hand-made Valentine cards based on British models. The popularity of Valentine cards in 19th century America, where many Valentine cards are now general greeting cards rather than declarations of love, was a harbinger of the future commercialization of holidays in the United States.[2]

The U.S. Greeting Card Association estimates that approximately one billion valentines are sent each year worldwide, making the day the second largest card-sending holiday of the year, behind Christmas. The association estimates that, in the US, men spend on average twice as much money as women.[3]

Love is any of a number of emotions and experiences related to a sense of strong affection[1] and attachment. The word love can refer to a variety of different feelings, states, and attitudes, ranging from generic pleasure (“I loved that meal”) to intense interpersonal attraction (“I love my boyfriend”). This diversity of uses and meanings, combined with the complexity of the feelings involved, makes love unusually difficult to consistently define, even compared to other emotional states.

As an abstract concept, love usually refers to a deep, ineffable feeling of tenderly caring for another person. Even this limited conception of love, however, encompasses a wealth of different feelings, from the passionate desire and intimacy of romantic love to the nonsexual emotional closeness of familial and platonic love[2] to the profound oneness or devotion of religious love.[3] Love in its various forms acts as a major facilitator of interpersonal relationships and, owing to its central psychological importance, is one of the most common themes in the creative arts.

Sub Buka_Koneksi()
koneksi.Open “Provider=Microsoft.Jet.Oledb.4.0;Data Source=” & App.Path & “databasejual.mdb”
koneksi.CursorLocation = adUseClient

rsBarang.Open “barang”, koneksi, adOpenKeyset, adLockOptimistic
End Sub

========================

kode form
====================
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With rsBarang
Me.Text1(0).Text = rsBarang.Fields(0)
Me.Text1(1).Text = rsBarang.Fields(1)
Me.Text1(2).Text = rsBarang.Fields(2)
End With
Me.Frame1.Visible = True
End If
End Sub

Private Sub Form_Load()
Buka_Koneksi

Set Me.DataGrid1.DataSource = rsBarang
Me.Frame1.Visible = False
End Sub

Private Sub Label4_Click()
Me.Frame1.Visible = False
End Sub

Private Sub txtcari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With rsBarang
If Me.txtcari.Text = “” Then
.Filter = adFilterNone
.Requery
Else
.Filter = “jenis =’” & Me.txtcari.Text & “‘”
If Not .EOF Then
Set Me.DataGrid1.DataSource = rsBarang
Else
MsgBox “Data yang anda cari tidak ditemukan..”, vbInformation + vbOKOnly, “Informasi”
End If
End If
End With

End If
End Sub

Private Sub txtfil_Change()
With rsBarang
If Me.txtfil.Text = “” Then
.Filter = adFilterNone
.Requery
Else
.Filter = “jenis like ‘” & Me.txtfil.Text & “*’”
If Not .EOF Then
Set Me.DataGrid1.DataSource = rsBarang
Else
MsgBox “Data yang anda cari tidak ditemukan..”, vbInformation + vbOKOnly, “Informasi”
End If
End If
End With
End Sub

Private Sub txtfil_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Me.DataGrid1.SetFocus
End Sub

Percaya akan Hatiku
Cintaku Untukmu
Selamanya di Hatimu
Untuk malam ini
Temani aku
Walau dalam mimpi
Aku milikmu
selamanya

The true of Love
The real of Kiss
I’ll Kiss you
When I want it
When you want it
Just for You
My Heart

Good night
Kiss and Love for You
Have Nice Dream
I miss you