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