DAO help plz

How do i open a database, then a table and add new records to a table using DAO??

Oh and how do i execute a qeury using DAO??

Open a database (this database has table-level passwords)

Code:

---

    DBEngine.SystemDB = GetWindowsDir() & "MYAPP.MDA"
    DBEngine.DefaultUser = "MyUserName"
    DBEngine.DefaultPassword = "MyPassword"
   
    'Open the databases
    'gDB is defined as Database
    Set gDB = Workspaces(0).OpenDatabase(App.Path + "\MyDB.mdb")

---

Open a table

Code:

---

    Dim ssRecs As Snapshot
    Set ssRecs = gDB.CreateSnapshot("Select * From CoreLanguage order by DisplayOrder")

---

Add new records

Code:

---

    Dim dsSavedSystems As Recordset
    Set dsSavedSystems = gdbRWTU.OpenRecordset("SavedSystems", dbOpenDynaset)
    dsSavedSystems.AddNew
    dsSavedSystems!cboTransType = frmMain.cboTransType.ListIndex
    dsSavedSystems.Update
    dsSavedSystems.Close

---

Query (a delete query)

Code:

---

                Dim SQL As String
                SQL = "DELETE FROM SavedSystems WHERE SystemName = " & "'" & sSysName & "'"
                gDB.Execute SQL, dbFailOnError

---

:(
i am confused.