DAO help plz

[Harrild]

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??

[MartinLiss]

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

    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

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

Add new records

    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)

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

[Harrild]

i am confused.