Aang Radio Player vb6

Aang Radio Player versi 1.0 ini dibuat memakai vb6 dan terkoneksi ke database ms access 2007 makanya biar software ini bisa berjalan dikomputer anda harus sudah terinstall microsoft access 2007, software Aang Radio Player ini sudah dites di windows xp SP2 dan berjalan lancar.

kalau ada yang butuh source codenya silahkan dicopy paste saja:
1. module1

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=radio.accdb;persist security info=false;"
cn.Open
Form1.Show

End Sub

2. form1

Private Sub Command1_Click()
wmp.URL = Text1
End Sub

Private Sub Command2_Click()
wmp.Controls.stop
End Sub

Private Sub Command3_Click()
nama = InputBox("Masukkan Nama radio yang akan di ADD", "Nama Radio", "Masukkan Nama Radionya")
Dim str As String
Dim rs As New ADODB.Recordset
str = "insert into list (URL,Nama)values('" & Text1 & "','" & nama & "')"
Set rs = cn.Execute(str)
Set rs = Nothing
MsgBox "sukses"
Call lihat
End Sub

Sub lihat()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list order by ID DESC"
Set rs = cn.Execute(str)
List1.Clear
Do While Not rs.EOF
List1.AddItem (rs!nama)
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Private Sub Form_Load()
Text1 = "http://216.239.136.8:8000"
Call lihat
End Sub

Private Sub List1_DblClick()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list where Nama='" & List1.Text & "'"
Set rs = cn.Execute(str)
wmp.URL = rs!URL
Text1 = "Playing: " & rs!nama
Set rs = Nothing
End Sub

yang dibutuhkan adalah 1 windows media player component, 1 texbox, 3 button dan 1 listbox.
rename windows media player menjadi wmp

Download Aplikasinya Disini