Select Statement.. Lupa Terus

secara lupa lupa terus kalo mau select statement pake where string.. aku copas dulu contekanku disini. biar nyarinya gampang

Ini untuk yang string :

       Set dbMed = CurrentDb()
        strSQL = "SELECT [dtTanggalBerobat] FROM xKacamata"
        strSQL = strSQL & " where strPRNo = '" & Me![strPRNo] & "'"
        strSQL = strSQL & " order by [dtTanggalBerobat];"
        Set rstKacamata = dbMed.OpenRecordset(strSQL)

Untuk Integer :

    Set dbs = CurrentDb()
    strSQL = "SELECT * FROM [Switchboard Items]"
    strSQL = strSQL & " WHERE [SwitchboardID]=" & Me![SwitchboardID]
    strSQL = strSQL & " ORDER BY [ItemNumber];"
    Set rst = dbs.OpenRecordset(strSQL)