- Код: Выделить всё
Sub AddSomethingToDataBase()
With DBGrid1
.AllowAddNew = True
With Data1.Recordset
.MoveLast
.AddNew
End With
.Columns(1).Text = "Бла"
.Columns(2).Text = "Бла"
.Columns(3).Text = "Бла"
.AllowAddNew = False
End With
Data1.Refresh
MsgBox "All OK!!!"
End Sub
Подскажите способ получше!

