Option Compare Database
Option Explicit

Function sam0601()
    Dim t1 As Integer
    Dim t2 As Double
    Dim t3 As String
    Dim t4 As Date
    t1 = 1
    t2 = 5.25
    t3 = "abc"
    t4 = Now()
    DoCmd.RunSQL ("insert into tmp values(" & t1 & "," & t2 & ",'" & t3 & "',#" & t4 & "#)")
    DoCmd.RunSQL ("insert into tmp values(2,3.33,'def',#11/8/01 7:43:59 PM #)")
End Function

Function sam0602(Optional t1 As Integer, Optional t2 As Double, Optional t3 As String, Optional t4 As Date)
    If Not IsNull(t1) And IsNumeric(t1) Then t1 = 22
    If Not IsNull(t2) And IsNumeric(t2) Then t2 = 22.2222
    If Not IsNull(t3) And Len(t3) = 0 Then t3 = "def"
    If Not IsNull(t4) And IsDate(t4) Then t4 = Now()
    DoCmd.RunSQL ("insert into tmp values(" & t1 & "," & t2 & ",'" & t3 & "',#" & t4 & "#)")
End Function

Function sam0603()
    Dim t1 As Integer
    Dim t2 As Double
    Dim t3 As String
    Dim t4 As Date
    Dim i As Integer
    Randomize
    For i = 1 To 5
        t1 = Int((Rnd * 10) + 1)
        t2 = Rnd * 10
        t3 = Chr(Int((Rnd * 26) + 65)) & Chr(Int((Rnd * 26) + 65)) & Chr(Int((Rnd * 26) + 65))
        t4 = Now()
        DoCmd.RunSQL ("insert into tmp values(" & t1 & "," & t2 & ",'" & t3 & "',#" & t4 & "#)")
    Next
End Function

Function sam0604()
    Dim t1 As Integer
    Dim t2 As Double
    Dim t3 As String
    Dim t4 As Date
    Dim i, max As Integer
    Dim dbs As Database
    Dim rst As Recordset
    Dim strSQL As String
    Set dbs = CurrentDb()
    strSQL = "SELECT * FROM [tmp];"
    Set rst = dbs.OpenRecordset(strSQL)
    max = 0
    rst.MoveFirst
    While (Not (rst.EOF))
        If rst!tmpseq > max Then max = rst!tmpseq
        rst.MoveNext
    Wend
    rst.Close
    dbs.Close
    Randomize
    For i = 1 To 5
        max = max + 1
        t1 = max
        t2 = Rnd * 10
        t3 = Chr(Int((Rnd * 26) + 65)) & Chr(Int((Rnd * 26) + 65)) & Chr(Int((Rnd * 26) + 65))
        t4 = Now()
        DoCmd.RunSQL ("insert into tmp values(" & t1 & "," & t2 & ",'" & t3 & "',#" & t4 & "#)")
    Next
End Function