FullPath = CurrentDb.Name
Colls_of_base1.SetFocus
SQLmsg =  "Select "  + Colls_of_base1.Text +  " from Base1" 
'вот имя столбца, который выбрал пользователь'
Coln = Colls_of_base1.Text 
Set dbs = OpenDatabase(FullPath)
  Set rst = dbs.OpenRecordset(SQLmsg, dbOpenDynaset)
  k =  0 
  With rst
     While (.EOF = False)
        k = k +  1 
        .MoveNext
     Wend
    ReDim Nexp_string(k)
    i =  0 
    .MoveFirst
    While (.EOF = False)
            i = i +  1 
            'а вот здесь нужно как-то обратиться к выбранному
            пользователем столбцу для считывания значения в массив.'
            Nexp_string(i) = ......
            .MoveNext
    Wend
   End With
  rst.Close
 dbs.Close