Text_Content(0) = rs("Name")

Dim str_connection As String
    str_connection = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
      Str_CurrentPath & "\CatalogExample.mdb;"
 
    Dim db_conn As ADODB.Connection
    Set db_conn = New ADODB.Connection
 
    db_conn.Open str_connection
 
    SQL = "SELECT * from Munster"
 
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open SQL, db_conn, adOpenForwardOnly, adLockReadOnly
 
    Dim Text_Content() As String
    Dim i As Integer
    ReDim Text_Content(1)
 
    Text_Content(0) = rs("Name")
 
    i = 0
    If rs.RecordCount > 0 Then