Private Sub txtMyTextBox_KeyPress(KeyAscii As Integer) 
    Dim strTemplate As String 

    strTemplate = "!@#$%^&*()_+="
    If InStr( 1 , strTemplate, Chr(KeyAscii)) >  0  Then KeyAscii =  0  
End Sub

s = ("от " + Format(vDate, "dd\.mm\.yyyy")) & ""

SELECT
     "от " + Format(Null, "dd\.mm\.yyyy"),
     Format(Null, "от dd\.mm\.yyyy"),
     "от " + Format(# 1 / 1 / 2011 #, "dd\.mm\.yyyy"),
     Format(# 1 / 1 / 2011 #, "от dd\.mm\.yyyy");

Dim xQuery AS DAO.Querydef
Dim RecSet AS DAO.RecordSet

SET xQuery = CurrentDB("Запрос1")
xQuery.Parameters("Число") =  1 
xQuery.Parameters("Дата") = # 1 / 1 / 2010 #
SET RecSet = xQuery.Openrecordset

Dim RecSet As DAO.Recordset
Dim strSQL As String

strSQL = "PARAMETERS Число Long = 1, Дата Datetime = #1/1/2010#;" & vbCrLf & _
    "TABLE (Запрос1)"
Set RecSet = CurrentDb.OpenRecordset(strSQL)

Dim RecSet As ADODB.Recordset
Dim strSQL As String

strSQL = "EXECUTE Запрос1 @Число=1, @Дата=#1/1/2011#;"
Set RecSet = New ADODB.Recordset
RecSet.Open strSQL, CurrentProject.Connection, adOpenKeyset

SELECT
    CurrentDB.Name AS DBFullName,
    CurrentProject.Name AS DBName,
    Currentproject.Path AS DBPath,
    Currentproject.AccessConnection AS AccessConnection,
    Currentproject.BaseConnectionString AS Connection;

SELECT CDate(CurrentProject.AllForms!Форма1.DateModified) AS DateModified

SELECT CurrentDB.Openrecordset("SELECT Name FROM MSysobjects").Fields("Name")

SELECT EVAL("CurrentDB.Openrecordset(""SELECT Name FROM MSysobjects"").Fields(""Name"")")

SELECT
    ID,
    EVAL("CurrentProject.Connection.Execute(""" &
        IIf(Id< 100 , "SELECT Field1 AS X FROM Table1", "SELECT Field2 AS X FROM Table2") &
            """).Fields(""Name""")") AS SomeValue
FROM Table3

SELECT * FROM MSysObjects
WHERE
    IIf(IsNull(Eval("CurrentDB.Execute(""INSERT INTO Table1 VALUES(1, 'Test')"")"))=False, True,
    IsNull(Eval("CurrentDB.Execute(""UPDATE Table1 SET Num = Num + 10"")")))

SELECT IIf(DCount("Name", "MSysobjects", "Name='Запрос1'")> 0 ,
   IsNull(EVal("CurrentProject.Connection.Execute('DROP PROCEDURE Запрос1').ActiveConnection"))=False,
   False) AS Deleted;

SELECT
Eval("Shell(""""""C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE""""
""""C:\Test.mdb"""""")");

With CurrentDB.QueryDefs("")

Public Function sBin(ByVal b As Byte) As String
    Dim i As Integer
    
    For i =  0  To  7 
        If b And  2  ^ i Then
            sBin =  1  & sBin
        Else
            sBin =  0  & sBin
        End If
    Next i
End Function

SELECT  3  And  7 

? 3  And  7 
 3 

CREATE FUNCTION fBin (@Value Tinyint) RETURNS Char( 8 )
AS
BEGIN
	DECLARE @I Tinyint, @V Char( 8 );

	/*	По умолчанию все переменные пустые (Null), поэтому им нужно присвоить
		первоначальные значения.
	*/
	SELECT @I =  0 , @V = '';

	WHILE @I <  8 
	BEGIN
		SELECT @V = CASE WHEN (@Value & POWER( 2 , @I)) >  0  THEN '1' ELSE '0' END + @V;
		SET @I = @I +  1 ;
	END

	RETURN @V;
END

?CurrentProject.Connection.Execute("SELECT 3 Band 7 as A").Fields("A").Value
  3  

Dim strSQL As String

strSQL = "SELECT N.*, T.*" & vbCrLf & _
"FROM Настройка AS N, [~TMPCLP_Table] AS T" & vbCrLf & _
"WHERE (N.ID Band T.ID) > 0"
With CurrentProject.Connection.Execute(strSQL)
    Do Until EOF
        ' Здесь получаем значения свойств и настраиваем БД.
        ' К примеру, устанавливаем запрет открытия какой-либо формы или отчёта
        ' определённым группам пользователей
        .MoveNext
    Loop

Function MsgBoxExt(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
        Optional Title, Optional ByVal SecondsToWait As Integer) As Integer
    ' Аналог MsgBox с возможностью самовыключения.
    ' Возвращает код нажатой клавиши или -1, если время ожидания исчерпано.
    Dim wshShell As Object
    
    Set wshShell = VBA.CreateObject("WScript.Shell")
    MsgBoxExt = wshShell.PopUp(Prompt, SecondsToWait, Title, Buttons)
End Function