AccessのVBAでSQLのLEFT関数を使い、文字列の左端から指定した文字数分の文字列を取り出す｜フォーム実行例

SQL = " SELECT LEFT(フィールド名,文字数) FROM テーブル名 "
又は、
SQL = " SELECT LEFT(フィールド名,文字数) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

文字数を2にした場合、
「大阪を楽しみましたか」の場合、「大阪」に
「ススキ揺れ、秋の気配」の場合、「スス」になります。
［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT ニュース,LEFT(ニュース,5) FROM サンプルデータ"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "  左から5文字：" & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード