Всем привет. Нужно было написать прогу чтобы в экселевский файл скачивала инфу с базы данных. Вот код:

Private Sub CommandButton1_Click()
Dim nEmpid
Dim StName As String
Dim StFam As String
Dim StDolgn As String
Dim Data
Dim Zarplata

nEmpid = CInt(InputBox("введите код сотрудника:"))

Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\bases\employ.accdb"
cn.Open

Dim rs As New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.Open "select имя, фамилия, дата рождения, зарплата, должность" & _
   "from поросяша where код=" & nEmpid, cn

If rs.EOF = True And rs.BOF = True Then
    MsgBox "нету"
End If

StName = rs.Fields("имя")
StFam = rs.Fields("фамилия")
StDolgn = rs.Fields("должность")
Data = rs.Fields("дата рождения")
Zarplata = rs.Fields("зарплата")

MsgBox Zarplata
End Sub

При запуске выдает ошибку: "нераспозноваемый формат базы данных"

Видимо, Excel не понимает формата MS Office-2007. Ради эксперимента попробуй открыть .mdb вместо .accdb.

http://www.connectionstrings.com/access