На VB делаю проект, который юзает SQL базу (VB6 sp4 + SQL2000 sp1). Есть форма, в которой отбирается критерий поиска в базе и затем итог отображается в DataGrid контроле, который связан с ADO-контролом(adcSearch). Если на сервер посылается запрос вот такого типа:

strSQL = "select ФамилияБольного, ИмяБольного, ОтчествоБольного, КодДиагноза from tblСтатистика where tblСтатистика.ФамилияБольного = 'Иванова'"

Set rstS.ActiveConnection = cnn
rstS.CursorType = adOpenKeyset
rstS.LockType = adLockBatchOptimistic
rstS.Open strSQL
Set adcSearch.Recordset = rstS ' где adcSearch - имя ADO контрола, связанного с DataGrid

то данные отображаются. Если запрос чуть изменить, добавив связь с другой таблицей:

strSQL = "SELECT ФамилияБольного, ИмяБольного, ОтчествоБольного, tblДиагноз.ДиагнозБольного as диагноз FROM tblСтатистика INNER JOIN tblДиагноз ON tblСтатистика.КодДиагноза = tblДиагноз.КодДиагноза
where tblСтатистика.ФамилияБольного = 'Иванова'

то DataGrid контрол данными не заполняется, хотя, если проверить возвращаемое содержимое в наборе, то данные там есть:

Do Until rstS.EOF
Debug.Print rstS![диагноз]
rstS.MoveNext
Loop

В чем может быть проблема?

Ну если присвоить свойству DataSourse грида открытый рекорсет, т.е.
dtgSearch.DataSource = rstS ' dtgSearch - имя грида
то вываливается ошибка "Method or data member not found"

Комбинация
rstS.CursorType = adOpenStatic
Set dtgSearch.DataSource = rstS
дали нужный результат