If not DataGrid1.Text="" then ' где текст выделенная ячейка


end if

Ячейка пуста или все записи пусты?
И почему иенно DG а не MSHFlaxGrid
MSHFlaxGrid-более удобен в сортировка поиска и выделении данных
и таких ошибок не будет
Проблемма DG в том что она связана на рямую с Recordset-ом и при изменении ячеек сразу автоматически обновляется сами записи в базе если тебе нужен такой контроль для ввода,обнавления,удаления данных то он подходит, а если нужен контроль для предствавления данных поиска в сетке данных без использования Recordset-а и нагрузки на базу, то самый удобный контроль MSHFlaxGrid его можно позицианировать как массив данных.

Private Sub Form_Load()
'при открытии можно ввести название колонок
With MSHFlexGrid1


.TextMatrix(0, 1) = "ID"
.TextMatrix(0, 2) = "Имя"
.TextMatrix(0, 2) = "Фамилие"
.TextMatrix(0, 2) = "Отчество"

End With
End Sub

Private Sub MSHFlexGrid1_Click()
With MSHFlexGrid1

ff = .TextMatrix(1, 4)
'ff = .TextMatrix(0, 7) идентична ff =DataGrid1.Columns(7)


.TextMatrix(0, 1) = "kkk" ' позиционирование по векторам x и y то.е
'.TextMatrix(Номер строки, Номер колонки)
MsgBox .Col 'выделенная колонна
MsgBox .Row 'выделенная строка
MsgBox .Text 'текст выделенной ячейки
End With

End Sub

'при использовании параметров нужно обновить записи в гриде так



Public Sub CommandParamert()
MSHFlexGrid1.DataMember = "Command1"
Set MSHFlexGrid1.DataSource = DE
MSHFlexGrid1.Refresh
Form_Load 'чтоб ы записи на колонках ввелись заново
End Sub

Public Sub ПрогонкаПоЗаписям()
Dim i As Long
Dim j As Long
Dim str As String
str = InputBox("Параметр поиска")
With MSHFlexGrid1
.Col = 0
.Row = 0
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
If .TextMatrix(i, j) = str Then
.Row = i 'позиционирование на резельтате поиска
.Col = j
.CellFontBold = True ' свойства наденных ячеек
End If
Next j
Next i
End With

End Sub

MSHFlexGrid1.DataMember = "Command1" - что такое Command1?
Set MSHFlexGrid1.DataSource = DN - и DataSource я закрываю после передачи в Грид
MSHFlexGrid1.Refresh
Form_Load 'чтобы
Если ты работаешь VB и используешь DataEnvironment (вид соединения)
то нужно формировать объект Command (вид запроса)
Если используешь Adodc

Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.Refresh
Form_Load 'чтобы

вот прмер поиска и показа данных с помощю SQL запроса Adod1 tools-а и MSHFlexGrid1 и текстового поля Text1


On Error GoTo er
With Adodc1
.CommandType = adCmdText
.RecordSource = Text1.Text ' здесь Text1.Text передает SQL запрос введенный 'пользователем
.Refresh

Set MSHFlexGrid1.DataSource = Adodc1 ' зелультат запроса выводится в сетку
MSHFlexGrid1.Refresh
End With
Exit Sub
er:
MsgBox Err.Description
Exit Sub