Attribute VB_Name = "Module1"
Option Compare Database
Option Explicit

Function createtable()

Dim db As Database
Dim tb As TableDef
Dim Name As Field
Dim Id As Field

Set db = CurrentDb
Set tb = db.CreateTableDef("Dogs")
Set Name = tb.CreateField("Name", dbText, 10)
Set Id = tb.CreateField("ID", dbInteger)

tb.Fields.Append Name
tb.Fields.Append Id

db.TableDefs.Append tb

MsgBox "The table has been created"

End Function


Function AddRecords()

Dim db As Database
Dim rs As Recordset

Dim Name As String
Dim Id As String

Set db = CurrentDb
Set rs = db.OpenRecordset("Cats")

Name = InputBox("Enter the name of the cat: ")
Id = InputBox("Enter the Id number: ")

With rs
    .AddNew
    !Name = Name
    !Id = Id
End With

rs.Update

MsgBox "Records Added"

db.Close

End Function

Function QueryMeOhISayQueryMe()

Dim db As Database
Dim qr As QueryDef
Dim SQLString As String

SQLString = "Select * From Cats where Id = 3"
Set db = CurrentDb
Set qr = db.CreateQueryDef("FindCat", SQLString)

qr.Close

DoCmd.OpenQuery ("FindCat")

End Function

Function CountThemRecords()

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from cats", dbOpenDynaset)

rs.MoveLast

MsgBox rs.RecordCount

End Function

Function FunkyFind()

Dim db As Database
Dim rs As Recordset
Dim Criteria As String
Dim cat As String

cat = InputBox("Enter the name of the cat you are looking for: ")

Set db = CurrentDb
Set rs = db.OpenRecordset("Cats", dbOpenDynaset)
Criteria = rs!Name = Str(cat)

rs.FindFirst Criteria
    Do Until rs.NoMatch
        MsgBox "You found a cat named " & rs!Name & " : " & rs!Id
    rs.FindNext Criteria
    Loop
   

End Function



Function CreateDatabase()

Dim wk As Workspace
Dim db As Database

Set wk = DBEngine.Workspaces(0)
    db = wk.CreateDatabase("C:\test.mdb", dbLangGeneral)

MsgBox "Database was created: " & vbCrLf & vbCrLf & _
        "Have a nice day :-)", vbInformation + vbOKOnly
    
End Function