Господа, помогите начинающему. У меня есть на листе в EXCEL табличка с информацией
2 Иванов маг.1 04.06.2004 11 11 10
1 Петров кнп.2 05.06.2004 5 5 1
4 Сидоров маг.4 06.06.2004 154 154 2
Мне ее надо дозаписывать в базу на VBA. Библиотеки я все уже подсоединил.
Вот так у меня:

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection 'подключение
Dim RS As New ADODB.Recordset 'запись
Dim i, k As Integer
conn.Open "ODBC;DATABASE=basa1.mdb;UID=;PWD=;DSN=kod"
RS.Open "select * from TAB1", conn, adOpenStatic, adLockOptimistic
FirstRow = 5
FirstCol = 1
For i = 1 To 10
For k = 1 To 8
Worksheets("forma").Activate
If Trim(Cells(FirstRow + i - 1, k + FirstCol).Value) = "Иванов" Then
а как здесь эту информацию с листа дальше дозаписывать не знаю.

Помогите, или посоветуйте что-нибудь. Благодарю всех !

Господа, помогите начинающему. У меня есть на листе в EXCEL табличка с информацией
2 Иванов маг.1 04.06.2004 11 11 10
1 Петров кнп.2 05.06.2004 5 5 1
4 Сидоров маг.4 06.06.2004 154 154 2
Мне ее надо дозаписывать в базу на VBA. Библиотеки я все уже подсоединил.
Вот так у меня:

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection 'подключение
Dim RS As New ADODB.Recordset 'запись
Dim i, k As Integer
conn.Open "ODBC;DATABASE=basa1.mdb;UID=;PWD=;DSN=kod"
RS.Open "select * from TAB1", conn, adOpenStatic, adLockOptimistic
FirstRow = 5
FirstCol = 1
For i = 1 To 10
For k = 1 To 8
Worksheets("forma").Activate
If Trim(Cells(FirstRow + i - 1, k + FirstCol).Value) = "Иванов" Then
а как здесь эту информацию с листа дальше дозаписывать не знаю.

Помогите, или посоветуйте что-нибудь. Благодарю всех !