You can use For Loop and write insert query in that.It may help you.
I hope you know basics of Ado.Net i.e how to connect with DataBase and all.
Dim StartValue As Int32 = Val(TextBox1.Text)
Dim EndValue As Int32 = Val(TextBox2.Text)
For i As Int32 = StartValue To EndValue
Dim objCommand As OleDbCommand = New OleDbCommand
objCommand.Connection = Con
objCommand.CommandText = "Insert into TableName (FieldName) Values(@FieldName)"
objCommand.SelectCommand.Parameters.AddWithValue("@FieldName", i)
Try
objCommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
objCommand = Nothing
Next
I hope it will help you. :)