sambil perjalanan pulang

w'allaikumussalam wr.wb..

mgkn nama itu tlah lama trcabik,
terhempas dr alam fikirmu yg sunyi mendamba kasih..
mgkn diri & sluruh lisan ini tak lg brarti saat chyamu mulai meredup,,tp jk iktn persaudaraan itu masi suci bagimu, izinkan aq utk slama"y barnaung dibwah ikatan itu,, menjadi pijar yg trangi gelapmu,meski aq tak mampu mjd pnjaga chya hdpmu,tp aq mampu mjd pijar t4mu mghrp terang chya, saat akhi mmrlukn chya. izinkan aq mcb mjd saudara sxgus shbt akhi disi2 tergelap hdp akhi. ana g mo silaturahmi ini ptus smp dsini..

baca - sambil perjalanan pulang

perjalanan pulang palembang

w’allaikumussalam wr.wb..

mgkn nama itu tlah lama trcabik,
terhempas dr alam fikirmu yg sunyi mendamba kasih..
mgkn diri & sluruh lisan ini tak lg brarti saat chyamu mulai meredup,,tp jk iktn persaudaraan itu masi suci bagimu, izinkan aq utk slama”y barnaung dibwah ikatan itu,, menjadi pijar yg trangi gelapmu,meski aq tak mampu mjd pnjaga chya hdpmu,tp aq mampu mjd pijar t4mu mghrp terang chya, saat akhi mmrlukn chya. izinkan aq mcb mjd saudara sxgus shbt akhi disi2 tergelap hdp akhi. ana g mo silaturahmi ini ptus smp dsini..
marhaban ya romadho marhaban ya syahro syam

kluar dari semarang jam 4.30an begitu bnyak crita dan canda yang
hrus ku hentikan sejenak tuk melihat kampung halaman yg telah lamaku tinggalkn

sahabt tmn yg slalu mngisi hri2 hrus ku tngglkn n membt luka kcewa
teman2 sekels tak dpt hll bhalal dgn brjumpa brcnda

w'allaikumussalam wr.wb..
mgkm nama itu tlah lama trcabik,terhempas dr alam fikirmu yg sunyi mendamba kasih..
mgkn diri

baca - perjalanan pulang palembang

koneksi untuk vb

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public pengguna As String

Public Sub buka()
If con.State = 0 Then
con.CursorLocation = adUseClient
con.Open "dsn=ok"
End If
End Sub
Public Sub data(sql As String)

If rs.State = 0 Then rs.Open sql, con, adOpenKeyset, adLockOptimistic

End Sub

-------------------------------------------------

Public CON As New ADODB.Connection
Public strPassword As Integer
Public RS As New ADODB.Recordset
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1






Sub Bukakoneksi()
If CON.State = adStateOpen Then CON.Close
CON.OPEN "provider=microsoft.jet.oledb.4.0;data source=" & App.Path + "\database\sensus.mdb"
'MsgBox "koneksi sukses", vbInformation
On Error GoTo conerror
'CON.Open Bukakoneksi
'Exit Sub
conerror:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & Err.Source, , "Error in connect"
End
End If

End Sub

Sub OpenRec(Sql As String)
If RS.State = adStateOpen Then RS.Close
Debug.Print Sql
RS.OPEN Sql, CON, adOpenKeyset, adLockOptimistic

End Sub

Sub eksekusiSQL(Sql As String)
Debug.Print sqLSTR
CON.Execute Sql
End Sub

Public Function ClearAll(myForm As Form)
Dim CTL As Control
For Each CTL In myForm
If TypeName(CTL) = "TextBox" Then
CTL.Text = ""
End If
If TypeName(CTL) = "MaskEdBox" Then
CTL = " / / "
End If
If TypeName(CTL) = "OptionButton" Then
CTL.Value = False
End If
If TypeName(CTL) = "CheckBox" Then
CTL.Value = 0
End If
Next
End Function

baca - koneksi untuk vb

gendon masih pecundang jomblo: lagu iwanfals untuk ws rendra

gendon masih pecundang jomblo: lagu iwanfals untuk ws rendra

baca - gendon masih pecundang jomblo: lagu iwanfals untuk ws rendra

lagu iwanfals untuk ws rendra

*. padi menguning tinggal dipanen
bening air dari gunung
ada juga yang kekeringan
karena kemarau

semilir angin perubahan
langit mendung kemerahan
pulanglah kitari lembah pesawahan

selamat jalan pahlawanku
pejuang yang dermawan
kau pergi saat dibutuhkan
saat di butuhkan

keberanianmu mengilhami jutaan hati
kecerdasanmu dan kesederhanaanmu
jadi impian
pergilah pergi dengan ceria
sebab kau tak sia-sia
tak sia-sia
tak sia-sia

satu hilang seribu terbilang
patah tumbuh hilang berganti 3x

terimalah sekedar kembang
dan DO’A-DO’A
suci…. sejati…. suci…. sejati….*

selamat jalan ws rendra




http://musik-live.net/play-music-code.php?src=fsn&name=WS.Rendra~Puisi&x=oxPXHpj3
http://www.index-of-mp3.com/download-WS._Rendra_Puisi_Cinta_-_Bagian_2-fsnXYYimtxX.html
http://www.musikfriendster.com/3gp-Sajak_Sebotol_Bir_%28ws._Rendra%29_2-68vpdVtYkXA.html
http://www.musikfriendster.com/3gp-Sajak_Sebotol_Bir_%28ws._Rendra%29_3-qttUcflfy7k.html
http://lenterahati.web.id/lagu-seorang-gerilya.html

baca - lagu iwanfals untuk ws rendra

19 41 minggu 8 2010 agts ? ta'aruf

w'allaikumussalam wr.wb.wmgfrth..y sama2 akhi,,ana jg mksh bgt tux wkt n' phtian akhi slma ini,, insyaallah ana kn jg brsha mjg smua amanah yg mlekat pd diri ana,, ana hrp, akhi sa lepas dr byng2 pcundang,, cz ana yakin,,akhi BKN pribadi pcundang!!SUKSES Wat akhi.. mksh mlm ini,wassalammu'alaikum..
+62857587628xx 18 agust 2009 180139
Dlm prsidngan CNTA, htiku du2k dkursi trdkwa.
jksa pnuntut tlh mnduh htiku sbg pncuri cnta'mu..
pengcraku tk mmpu mmbela htiku.. krn bukti2 sdh lengkp.
Akhirny htiku djtuhi Hkumn s'umur hdup tuk mncntai'mu.

baca - 19 41 minggu 8 2010 agts ? ta'aruf