Dim db As Database
Dim rs As Recordset
Dim r As Long

Set db = OpenDatabase("C:\Documents and Settings\ogrenci\Desktop\yunus\deneme.mdb")

Set rs = db.OpenRecordset("myTable", dbOpenTable)

r = 10
Do While Len(Range("C" & r).Formula) > 0

With rs
.AddNew
.Fields("Sira") = Range("B" & r).Value
.Fields("Sira_No") = Range("B" & r).Value & " Hat1"
.Fields("Stok_No") = Range("C" & r).Value
.Fields("Isletme_Kodu") = Range("D" & r).Value
.Fields("Marka_Kodu") = Range("E" & r).Value
.Fields("Model") = Range("F" & r).Value
.Fields("Plan") = Range("M" & r).Value
.Fields("Fiili") = Range("N" & r).Value
.Fields("1") = Range("O" & r).Value
.Fields("2") = Range("P" & r).Value
.Fields("3") = Range("Q" & r).Value
.Fields("4") = Range("R" & r).Value
.Fields("5") = Range("S" & r).Value
.Fields("6") = Range("T" & r).Value
.Fields("7") = Range("U" & r).Value
.Fields("8") = Range("V" & r).Value
.Fields("9") = Range("W" & r).Value
.Fields("10") = Range("X" & r).Value
.Fields("11") = Range("Y" & r).Value
.Fields("12") = Range("Z" & r).Value
.Fields("13") = Range("AA" & r).Value
.Fields("14") = Range("AB" & r).Value
.Fields("15") = Range("AC" & r).Value
.Fields("16") = Range("AD" & r).Value
.Fields("17") = Range("AE" & r).Value
.Fields("18") = Range("AF" & r).Value
.Fields("19") = Range("AG" & r).Value
.Fields("20") = Range("AH" & r).Value
.Fields("21") = Range("AI" & r).Value
.Fields("22") = Range("AJ" & r).Value
.Fields("23") = Range("AK" & r).Value
.Fields("24") = Range("AL" & r).Value
.Fields("25") = Range("AM" & r).Value
.Fields("26") = Range("AN" & r).Value
.Fields("27") = Range("AO" & r).Value
.Fields("28") = Range("AP" & r).Value
.Fields("29") = Range("AQ" & r).Value
.Fields("30") = Range("AR" & r).Value
.Fields("31") = Range("AS" & r).Value


.Update
End With
r = r + 1
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

__________________




KAHRAMAN ORDUM KILICIN KESKİN AVIN KANLI OLSUN