Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- con = New OleDb.OleDbConnection
- dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
- dbSource = "Data Source = C:UsersRedemptorisMaterDesktopSKWindowsApplication1WindowsApplication1bene_db.mdb"
- con.ConnectionString = dbProvider & dbSource
- If Not con.State = ConnectionState.Open Then
- con.Open()
- End If
- Dim da As OleDb.OleDbDataAdapter
- Dim Sql As String
- Sql = "SELECT * FROM bene_records"
- da = New OleDb.OleDbDataAdapter(Sql, con)
- Dim dt As New DataTable
- da.Fill(dt)
- con.Close()
- My.Computer.Audio.Play("C:UsersRedemptorisMaterDesktopSeminariansKentonWindowsApplication1WindowsApplication1bday1.wav",
- AudioPlayMode.Background)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement