SQLComm.Connection.Open()
   SQLTrans = SQLComm.Connection.BeginTransaction()
   SQLComm.Parameters.Add("@Indx", DBType.Int32)
   SQLComm.Parameters.Add("@Sp1", DBType.String)
   SQLComm.Parameters.Add("@Sp2", DBType.String)
   For X = 0 to 1000
      SQLComm.Parameters("@Indx").Value = X
      SQLComm.Parameters("@Sp1").Value = "abcdefghijklmnop"
      SQLComm.Parameters("@Sp1").Value = "wertzuiopasdfghjklö"
      SQLComm.CommandText = "INSERT INTO TabTest VALUES(@Indx, @Sp1, @Sp2)"
      SQLComm.ExecuteNonQuery
   Next
   SQLTrans.Commit()

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de