Excel VisualBasic Script

Private Sub Worksheet_Activate()
    Dim dbNorthwind As DAO.Database
    Dim rsCategories As DAO.Recordset
    Dim dbpath As String
    dbpath = CurrentPath & "\mydb.mdb"
    Set dbNorthwind = OpenDatabase(dbpath)
    Set rsCategories = dbNorthwind.OpenRecordset( _
        "Categories", dbOpenTable)
    With rsCategories
        If Not .BOF Then .MoveFirst
        Cells(3, 3).Value = .Fields(1).Value    'Name
        Cells(5, 3).Value = .Fields(2).Value    'Description
    End With
End Sub