Excel

On Error Resume Next
MsExcel.Workbooks.Add
MsExcel.Range("A1").Value = "Kode Studio"
MsExcel.Range("B1").Value = "Nama Band"
MsExcel.Range("C1").Value = "Durasi/Jam"
MsExcel.Range("D1").Value = "Total Bayar"

i = 1
Do While Not Adodc1.Recordset.EOF
MsExcel.Range("A" & i + 1).Value = Adodc1.Recordset("Kode_Studio")
MsExcel.Range("B" & i + 1).Value = Adodc1.Recordset("Nama_Band")
MsExcel.Range("C" & i + 1).Value = Adodc1.Recordset("Durasi")
MsExcel.Range("D" & i + 1).Value = Adodc1.Recordset("Total_Bayar")

i = i + 1
Adodc1.Recordset.MoveNext
Loop
MsExcel.Visible = True
Adodc1.Recordset.MoveFirst

Report

Set DataReportSimpanPinjam.DataSource = Adodc2
DataReportSimpanPinjam.Refresh
DataReportSimpanPinjam.WindowState = 2
DataReportSimpanPinjam.Show
Adodc2.Refresh

Muncul di cmb

StrSQL = "SELECT * FROM Studio WHERE Kode_Studio=" & txtKode.Text & ""
Set rs = Conn.Execute(StrSQL)
If Not rs.EOF Then
  harga = rs.Fields("Harga")
  If (cmbDurasi.Text <> "") Then
    txtharga.Text = harga * Val(cmbDurasi.Text)
  End If

Else
 txtharga.Text = 0

MsgBox "kode studio Tidak Ada"
 txtKode.SetFocus

 End If

Kenapa

Entah apa yang udah ngerasukin jiwa ini, apa mungkin iblis cinta? Memang iblis bisa merasakan cinta? Iblis punya hati? Entahlah apa itu yang pasti rasanya gakaruan kalo udah terdengar nama itu. Iya nama itu yang pernah bikin sakit.
Yang jelas kenapa sih gada bosennya mikirin seseorang yang bernama itu, yap selalu. Iya dulu gue pernah melakukan kesalahan yang amat sangat besar menurutnya tapi menurut gue itu biasa. Mungkin gabiasa buat dia yang ga ngeksis dijejaring sosial. Tapi dia gamau tau dan... ah sudahlah lupakan saja:)
Dan gabosen-bosennya bikin sesuatu buat dia, iya contohnya kaya video gajelas itu yang gue bikin beberapa minggu yang lalu. Itu video gaberguna banget kayanya buat dia. Temen2 guesih maksa buat kasih tau dia tapi gue selalu halang2in karna apa? Ntar gue malah dikatain cewe gila atau mungkin cewe yang gatau malu. Iya dia gasuka sama yang berbau publik apalagi keramaian, pantesan aja temen2 gue jarang yang kenal dia kalo ga gue tunjukin. Ok fix video pertama lewat dan gamau kasih tau dia.
Dan lagi-lagi gue gaberenti kasih dia hadiah video, dulu pernah album foto yang ga berguna banget kan, sampe gaada respon sedikit pun dari dia. Ok itu memang bukan salah dia, itu hak dia:)
Kali ini gue buat video ucapan happy birthday. Gue emang oon, selalu aja perjuangin sendiri padahal itu gaada hasil tetep aja dilakuin duh-_- video ini buat tanggal 30 maret. Iya itu tanggal lahirnya:)
Lagi-lagi video ini gue publik di youtube, soal diliat atau ngganya sama dia itu terakhiran deh yang penting gue udah upload video itu buat 30 maret. Tapi gue bingung cara kasih tau ke dia. Nomernya aja udah gaaktif tiap kali gue misscall. Yap tepat, kayanya dia ganti nomer. Dan itu bener:)
Dan mungkin video ucapan itu gaakan diliat sama dia:) Kenapa?

Lukisan Alam

Temaram senja
Merambat pelan
Mengusir siang
ciptakan malam

Satu demi satu unggas melayang
setelah penat mencari makan
mereka kembali menuju sarang

Suara jangkrik menyanyi riang
Mengusik sepi sunyinya malam

Bintang hadir dengan cahaya cemerlang
Bulanpun turut pancarkan sinar
Mencambah indahnya suasana malam

Oh Tuhan yang kuasa...
Kau gubah begitu indah
Malam ini bagaikan lukisan alam

Puji syukur kupanjatkan
Hanya kepadamu tuhan...
Atas semua karunia-Mu ini

Ketika malam beranjak pergi
Sesaat lagi berganti diri
Tampak diantara dedaunan
Butiran embun pancarkan sinar
Menyambut tibanya cahaya fajar

Karya -RAC-

Belum Ada Judul

Suasana meriah didalam night club
Banyak tuan-tuan yang asik berkencan
Sana-sini minuman sana-sini perempuan
Lupa anak istri lupa segala yang ada dirumah

    Zaman sudah terbalik dunia semakin gila
    Tingkah pola yang muda selalu disalahkan
    Katanya muda-mudi semakin tak tahu diri
    Padahal si tua suka memberi contoh yang tidak benar
    Mari muda-mudi singsingkan lengan baju

Mereka anggap dunia sebuah club malam
Mumpung masih ada mumpung masih jaya
Hindarkan kebodohan katanya!!
Jauhkan kemiskinan katanya!!
Biarlah kita yang pintar
Biar si bodoh semakin bodoh

    Coba dong rubah sikapmu
    Jangan sok berlebihan
    Kalau kita kaya tengoklah kebawah
    Jangan sok ringan tangan
    Memvonis sana-sini
    Aku pernah baca di koran
    Hukum belum bisa menjamin
        "Keadilan"

Kenangan SMK

Masa muda pesona remaja
Disaat sekolah ini tercipta
Disekolah menengah khususnya (SMK)
Disana berpijar cahaya ria
    Romantika indah & ceria
    Diantara sekolah & cinta
    Dalam cita juga dalam cinta
    Disana terkumpul sejuta indah
Walau cinta hanya tinggal kenangan
Kenangan yang paling indah
Namun cita-cita terus berlaju
Yang menembus kelam
Dan meraih bintang
    Bagai bunga yang tak pernah layu (Edelweis)
    Kan abadi selalu dihati
    dalam suka juga dalam duka
    Romantika indah cita & cinta